diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 358fbb08bc..5ab10d062c 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4007,9 +4007,17 @@ for my $c ("z", "\0", "!", chr(254), chr(256)) { iseq($all, 'foo((2*3)+4-3) + bar(2*(3+4)-1*(2-3))'); iseq($all, $_); } +{ + my $spaces=" "; + local $_=join 'bar',$spaces,$spaces; + our $count=0; + s/(?>\s+bar)(?{$count++})//g; + iseq($_,$spaces,"SUSPEND final string"); + iseq($count,1,"Optimiser should have prevented more than one match"); +} +# Test counter is at bottom of file. Put new tests above here. #------------------------------------------------------------------- - # Keep the following tests last -- they may crash perl { # RT#19049 / RT#38869 @@ -4049,7 +4057,7 @@ ok((q(a)x 100) =~ /^(??{'(.)'x 100})/, iseq($_,"!Bang!1!Bang!2!Bang!3!Bang!"); } -# Put new tests above the line, not here. +# Put new tests above the dotted line about a page above this comment # Don't forget to update this! -BEGIN { print "1..1347\n" }; +BEGIN { print "1..1349\n" }; |