This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: bf05793) | patch
Stop minlen regexp optimisation from rejecting long strings
authorFather Chrysostomos <sprout@cpan.org>
Wed, 24 Jul 2013 21:23:54 +0000 (14:23 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 25 Aug 2013 19:23:59 +0000 (12:23 -0700)
commit389ecb564541f5a336b531db204970925ed27790
tree48dd3aa4343e7c093fa79c7945725cba5ac24aa6tree | snapshot
parentbf05793b4d0b88b38e2379fc326d791af6c2cab0commit | diff
Stop minlen regexp optimisation from rejecting long strings

This fixes #112790 and part of #116907.

The length of the string is cast to I32, so it wraps and end up less
than the minimum length.

For now, simply skip this optimisation if minlen itself wraps and
becomes negative.
MANIFEST diff | blob | blame | history
pp_hot.c diff | blob | blame | history
t/bigmem/regexp.t [new file with mode: 0644] blob
Unnamed repository; edit this file 'description' to name the repository.