Iterate a portable way, not Parrot-dependent one.

rakudo · Jun 19, 2013 · 0f41b50 · 0f41b50
1 parent cd1b750
commit 0f41b50
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Cursor.pm b/src/core/Cursor.pm
@@ -19,7 +19,7 @@ my class Cursor does NQPCursorRole {
             my Mu $caphash := nqp::findmethod(Cursor, 'CAPHASH')(self);
             my Mu $capiter := nqp::iterator($caphash);
             while $capiter {
-                my str $key = nqp::shift_s($capiter);
+                my str $key = nqp::iterkey_s($capiter);
                 my Mu $value := nqp::hllize(nqp::atkey($caphash, $key));
                 if $key eq '$!from' || $key eq '$!to' {
                     nqp::bindattr_i($match, Match, $key, $value.from);