Author: moritz
Date: Sat Dec 6 04:41:23 2008
New Revision: 33550
Modified:
trunk/languages/perl6/src/builtins/any-str.pir
Log:
[cage] trailing whitespaces
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 Sat Dec 6 04:41:23 2008
@@ -954,7 +954,7 @@
n_cnt += 1
$I5 = n_cnt % every
unless $I5 == 0 goto subst_loop
-
+
if times < 0 goto skip_times
x_cnt += 1
@@ -1051,11 +1051,11 @@
subst_loop:
unless matchlist goto subst_done
match = shift matchlist
-
+
n_cnt += 1
$I5 = n_cnt % every
unless $I5 == 0 goto subst_loop
-
+
if times < 0 goto skip_times
x_cnt += 1