diff options
| author | yves orton <unknown> | 2006-11-17 01:48:14 -0800 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-11-17 20:25:27 +0000 |
| commit | cf2a2b693556595262000bd111376253d237e7a7 (patch) | |
| tree | 7a1d881b6a09076f11ac104f63e96cb98b05894a /t | |
| parent | 336b16029e7686b3273193f6fde31a5cece4cff2 (diff) | |
| download | perl-cf2a2b693556595262000bd111376253d237e7a7.tar.gz | |
[perl #22395] regexp /(.*)[bc]/ 10000 times slower in 5.8.0 vs 5.6.1
From: "yves orton via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-1666-1163785693-404.22395-15-0@perl.org>
p4raw-id: //depot/perl@29310
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 68328f8212..b431db3388 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4054,7 +4054,15 @@ for my $c ("z", "\0", "!", chr(254), chr(256)) { } iseq($^R,'Nothing'); } - +{ + local $Message="RT#22395"; + our $count; + for my $l (1,10,100,1000) { + $count=0; + ('a' x $l) =~ /(.*)(?{$count++})[bc]/; + iseq($l+1,$count,"Should be L+1 not L*(L+3)/2 (L=$l)"); + } +} # Test counter is at bottom of file. Put new tests above here. #------------------------------------------------------------------- # Keep the following tests last -- they may crash perl @@ -4100,4 +4108,4 @@ ok((q(a)x 100) =~ /^(??{'(.)'x 100})/, # Put new tests above the dotted line about a page above this comment # Don't forget to update this! -BEGIN { print "1..1358\n" }; +BEGIN { print "1..1363\n" }; |