Permalink
Browse files

[GGE::Perl6Regex] adaptations to Rakudo master

- s/continue/proceed/ inside a 'given' block.
  • Loading branch information...
1 parent d8ff454 commit a38e8dbb76a500dab321474e3f746bbd209e0b4e @masak committed May 22, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/GGE/Perl6Regex.pm
View
4 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;

0 comments on commit a38e8db

Please sign in to comment.