develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r33400 - trunk/languages/perl6/src/builtins

From:
pmichaud
Date:
November 30, 2008 20:39
Subject:
[svn:parrot] r33400 - trunk/languages/perl6/src/builtins
Message ID:
20081201043912.EA4C1CB9AF@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About