diff options
| -rwxr-xr-x[-rw-r--r--] | challenge-061/jo-37/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-061/jo-37/perl/ch-2.pl b/challenge-061/jo-37/perl/ch-2.pl index 0f48e6c287..618d949e84 100644..100755 --- a/challenge-061/jo-37/perl/ch-2.pl +++ b/challenge-061/jo-37/perl/ch-2.pl @@ -22,7 +22,6 @@ use Test2::V0; # return an unmatchable pattern sub collect { push @result, [$1, $2, $3, $4] if pos == length; - '^'; # cannot match after address }; # Regex that never matches anything, but @@ -31,7 +30,8 @@ use Test2::V0; qr{ ^ $addr # match an address - (??{ collect }) # collect address and fail + (?{ collect }) # collect address + (*FAIL) # force backtracking }x; # prepare actual call and |