%h.hash should not make a new hash, just return identify.

rakudo · Apr 21, 2012 · 94ae63536ade40846c4ceb9ce2f2ca512bae0eb7 · 94ae635
1 parent 271d219
commit 94ae63536ade40846c4ceb9ce2f2ca512bae0eb7
Unified Split

Showing with 4 additions and 0 deletions.

+4 −0 src/core/EnumMap.pm
diff --git a/src/core/EnumMap.pm b/src/core/EnumMap.pm
@@ -96,6 +96,10 @@ my class EnumMap does Associative {
     method fmt($format = "%s\t\%s", $sep = "\n") {
         self.pairs.fmt($format, $sep);
     }
+    
+    method hash(\$self:) is rw {
+        $self
+    }
 }
 
 multi sub infix:<eqv>(EnumMap $a, EnumMap $b) {