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 /regcomp.c | |
| 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 'regcomp.c')
| -rw-r--r-- | regcomp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4207,7 +4207,8 @@ reStudy: first = NEXTOPER(first); goto again; } - else if (!sawopen && (OP(first) == STAR && + else if ((!sawopen || !RExC_sawback) && + (OP(first) == STAR && PL_regkind[OP(NEXTOPER(first))] == REG_ANY) && !(r->reganch & ROPT_ANCH) ) { |