Author: pmichaud
Date: Sun Nov 30 20:39:12 2008
New Revision: 33400
Modified:
trunk/languages/perl6/src/builtins/any-str.pir
Log:
[rakudo]: Oops! Fix :global on .subst( $regex, $str )
Modified: trunk/languages/perl6/src/builtins/any-str.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-str.pir (original)
+++ trunk/languages/perl6/src/builtins/any-str.pir Sun Nov 30 20:39:12 2008
@@ -947,7 +947,8 @@
push matchlist, match
unless global_flag goto matchlist_done
matchlist_loop:
- match = regex(match)
+ $I0 = match.'to'()
+ match = regex(match, 'continue'=>$I0)
unless match goto matchlist_done
push matchlist, match
goto matchlist_loop
