[GGE::Perl6Regex] adaptations to Rakudo master

- s/continue/proceed/ inside a 'given' block.
masak · May 22, 2010 · a38e8db · a38e8db
1 parent d8ff454
commit a38e8db
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/GGE/Perl6Regex.pm b/lib/GGE/Perl6Regex.pm
@@ -328,7 +328,7 @@ class GGE::Perl6Regex {
                             last;
                         }
                         when '.' {
-                            continue if $target.substr($pos, 2) ne '..';
+                            proceed if $target.substr($pos, 2) ne '..';
                             $pos += 2;
                             ++$pos while $target.substr($pos, 1) ~~ /\s/;
                             $isrange = True;
@@ -341,7 +341,7 @@ class GGE::Perl6Regex {
                         when '\\' {
                             ++$pos;
                             $char = $target.substr($pos, 1);
-                            continue;
+                            proceed;
                         }
                         when /\s/ {
                             ++$pos;