[EnumMap] return Perl 6 strings as keys

rakudo · Mar 28, 2011 · 405afa9 · 405afa9
1 parent c8745bc
commit 405afa9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/EnumMap.pm b/src/core/EnumMap.pm
@@ -83,7 +83,7 @@ class EnumMap is Iterable does Associative {
             my $iter = pir::iter__PP($!storage);
             while pir::istrue__IP($iter) {
                 my $iter_item = pir::shift__PP($iter);
-                take Pair.new(key => $iter_item.key, value => $iter_item.value);
+                take Pair.new(key => ~$iter_item.key, value => $iter_item.value);
             }
         }
     }