Match.perl: work around RT #64952

rakudo · Apr 22, 2009 · d0a5de5 · d0a5de5
1 parent fd0a4d5
commit d0a5de5
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/setting/Match.pm b/src/setting/Match.pm
@@ -22,9 +22,10 @@ class Match is also {
             if @(self) {
                 take $sp;
                 take "positional => [\n";
-                for @(self) {
+                # work around RT #64952
+                for ^self.list {
                     take "$sp ";
-                    self!_perl_quant($_, $indent);
+                    self!_perl_quant(self.[$_], $indent);
                     take ",\n";
                 }
                 take $sp;