make Hash.push aware of non-Str keys

rakudo · Feb 15, 2012 · e238121 · e238121
1 parent fd74491
commit e238121
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -71,10 +71,10 @@ my class Hash {
         my $has_previous;
         for @values -> $e {
             if $has_previous {
-                self!_push_construct($previous.Str, $e);
+                self!_push_construct($previous, $e);
                 $has_previous = 0;
             } elsif $e.^isa(Enum) {
-                self!_push_construct($e.key.Str, $e.value);
+                self!_push_construct($e.key, $e.value);
             } else {
                 $previous = $e;
                 $has_previous = 1;
@@ -87,7 +87,7 @@ my class Hash {
     }
 
     # push a value onto a hash slot, constructing an array if necessary
-    method !_push_construct(Str $key, Mu $value) {
+    method !_push_construct(Mu $key, Mu $value) {
         if self.exists($key) {
             if self.{$key}.^isa(Array) {
                 self.{$key}.push($value);