diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-10 22:31:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-10 22:31:56 +0000 |
| commit | 0b3e77ec2e46a23afe97475f6b9bf7880fae85f1 (patch) | |
| tree | fbd2cac1d5430d518eca1056f17cbc57a6ab25b0 /t | |
| parent | 2af555bf3f2b3ca8e114df3f5f680d40bd24d6bf (diff) | |
| download | perl-0b3e77ec2e46a23afe97475f6b9bf7880fae85f1.tar.gz | |
Downgrading a fixed or floating substring of a pattern whilst matching
a studied string seems to get to a "should not happen" [bug #41067]
It seems that Perl_regexec_flags() assumes that if the pre-downgraded
substring is FBM compiled, then the downgraded version will be too,
hence changing the downgrade and upgrade routines to FBM compile seems
to be a correct fix.
p4raw-id: //depot/perl@29502
Diffstat (limited to 't')
| -rw-r--r-- | t/op/re_tests | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index d0f6ae3b13..48dbb79f88 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -1013,6 +1013,7 @@ X(?<=foo.)[YZ] ..XfooXY.. y pos 8 ^(??{q(.+)})\x{100} \x{100}\x{100} y $& \x{100}\x{100} ^(??{q(.)})\x{100} \x{100}\x{100} y $& \x{100}\x{100} ^(??{chr 0x100})\xbb \x{100}\x{bb} y $& \x{100}\x{bb} +\x{100}?(??{""})xxx xxx y $& xxx ^(.)(??{"(.)(.)"})(.)$ abcd y $1-$2 a-d ^(.)(??{"(bz+|.)(.)"})(.)$ abcd y $1-$2 a-d ^(.)((??{"(.)(cz+)"})|.) abcd y $1-$2 a-b |