Merge pull request #644 from usev6/NPE_baghash

Avoid NullPointerException in S02-types/baghash.t
rakudo · Dec 19, 2015 · 8456169 · 8456169
2 parents 96e407c + 97020cb
commit 8456169
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Pair.pm b/src/core/Pair.pm
@@ -25,7 +25,7 @@ my class Pair does Associative {
         $!value.ACCEPTS(%h.AT-KEY($!key));
     }
     multi method ACCEPTS(Pair:D: Pair:D $p) {
-        $!value.ACCEPTS(nqp::getattr($p,Pair,'$!value'));
+        $!value.ACCEPTS(nqp::getattr(nqp::decont($p),Pair,'$!value'));
     }
     multi method ACCEPTS(Pair:D: Mu $other) {
         $other."$!key"().Bool === $!value.Bool