fix EnumMap.keys and .kv to return proper Perl 6 strings

rakudo · Sep 25, 2010 · 2632afb · 2632afb
1 parent 13c8a23
commit 2632afb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/EnumMap.pm b/src/core/EnumMap.pm
@@ -69,11 +69,11 @@ class EnumMap is Iterable does Associative {
     method iterator() { self.pairs.iterator }
 
     method keys() {
-        self.pairs.map({ $^pair.key })
+        self.pairs.map({ ~$^pair.key })
     }
 
     method kv() { 
-        self.pairs.map({ $^pair.key, $^pair.value }).flat 
+        self.pairs.map({ ~$^pair.key, $^pair.value }).flat 
     }
 
     method list() { self.pairs }