Fix %a{5}:delete, as reported by psch

rakudo · Aug 4, 2014 · 59fee83 · 59fee83
1 parent 23c4ea2
commit 59fee83
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -136,11 +136,11 @@ my class Hash { # declared in BOOTSTRAP
 
     proto method delete_key(|) { * }
     multi method delete_key(Hash:U:) { Nil }
-    multi method delete_key($key) {
-        my Mu $val = self.at_key($key);
+    multi method delete_key(\key as Str) {
+        my Mu $val = self.at_key(key);
         nqp::deletekey(
             nqp::getattr(self, EnumMap, '$!storage'),
-            nqp::unbox_s($key)
+            nqp::unbox_s(key)
         );
         $val;
     }