Fix hangs related to Map:D.Hash infinilooping

rakudo · Oct 30, 2015 · 192a3ff · 192a3ff
1 parent cc9c7c1
commit 192a3ff
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/Map.pm b/src/core/Map.pm
@@ -10,6 +10,13 @@ my class Map does Iterable does Associative { # declared in BOOTSTRAP
         %h;
     }
 
+    multi method Hash(Map:U:) { Hash }
+    multi method Hash(Map:D:) {
+        my $hash := Hash.new;
+        nqp::bindattr($hash,Map,'$!storage',nqp::getattr(self,Map,'$!storage'));
+        $hash
+    }
+
     multi method Bool(Map:D:) {
         nqp::p6bool(nqp::defined($!storage) && nqp::elems($!storage));
     }