Avoid NullPointerException on rakudo.jvm

'say my @A' lead to NPE; timotimo++ for suggesting nqp::existskey
rakudo · Nov 28, 2015 · 632f75b · 632f75b
1 parent 474db4c
commit 632f75b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -342,7 +342,7 @@ Please refactor this code using the new Iterator / Seq interface.
     method gistseen(Mu:D \SELF: $id, $gist, *%named) {
         if $*gistseen -> \sems {
             my str $WHICH = nqp::unbox_s(self.WHICH);
-            if nqp::atkey(sems,$WHICH) {
+            if nqp::existskey(sems,$WHICH) && nqp::atkey(sems,$WHICH) {
                 nqp::bindkey(sems,$WHICH,2);
                 "{$id}_{nqp::objectid(SELF)}";
             }
@@ -369,7 +369,7 @@ Please refactor this code using the new Iterator / Seq interface.
     method perlseen(Mu:D \SELF: $id, $perl, *%named) {
         if $*perlseen -> \sems {
             my str $WHICH = nqp::unbox_s(self.WHICH);
-            if nqp::atkey(sems,$WHICH) {
+            if nqp::existskey(sems,$WHICH) && nqp::atkey(sems,$WHICH) {
                 nqp::bindkey(sems,$WHICH,2);
                 "{$id}_{nqp::objectid(SELF)}";
             }