in Match.perl, quote hash keys

rakudo · Mar 15, 2009 · d2ad095 · d2ad095
1 parent 5b1ff9c
commit d2ad095
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/setting/Match.pm b/src/setting/Match.pm
@@ -32,7 +32,7 @@ class Match is also {
                 take $sp;
                 take "named => \{\n";
                 for %(self).kv -> $name, $match {
-                    take "$sp $name => ";
+                    take "$sp '$name' => ";
                     # XXX why is this a Str, not a Match?
                     if $match ~~ Match {
                         take $match!_perl($indent + 3);