fix for MATCH on parrot

nqp::split returns a ResizeableStringArray which happily explodes in a for loop
rakudo · Sep 17, 2014 · dae02a4 · dae02a4
1 parent 8d45e69
commit dae02a4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/Cursor.pm b/src/core/Cursor.pm
@@ -89,7 +89,10 @@ my class Cursor does NQPCursorRole {
                             }
                         }
                         else {
-                            for nqp::split('=', $name) -> $name {
+                            my Mu $names := nqp::split('=', $name);
+                            my $iter     := nqp::iterator($names);
+                            while $iter {
+                                my $name := nqp::shift($iter);
                                 my Mu $capval     := nqp::atkey($caplist, $name);
 #?if jvm
                                 my int $needs_list = nqp::isconcrete($capval) &&