Lines Matching full:bug
33 "Match UTF-8 char in presence of (??{ }); Bug 20000731.001 (#3600)");
37 ok(undef =~ /^([^\/]*)(.*)$/, "Used to cause a SEGV; Bug 20001021.005 (#4492)");
41 my $message = 'bug id 20001008.001 (#4407)';
59 # Fist half of the bug.
60 my $message = 'HEBREW ACCENT QADMA matched by .*; Bug 20001028.003 (#4536)';
66 # Second half of the bug.
67 $message = 'HEBREW ACCENT QADMA in replacement; Bug 20001028.003 (#4536)';
75 my $message = 'Repeated s///; Bug 20001108.001 (#4631)';
84 my $message = 's/// on UTF-8 string; Bug 20000517.001 (#3253)';
92 # The original bug report had 'no utf8' here but that was irrelevant.
94 my $message = "Don't dump core; Bug 20010306.008 (#5982)";
100 my $message = '/g in scalar context; Bug 20010410.006 (#6796)';
120 …unlike($_, qr/[[:print:]]/, sprintf "\\%03o not in [[:print:]]; Bug 20010619.003 (#7131)", ord $_);
123 like($_, qr/[[:print:]]/, "'$_' in [[:print:]]; Bug 20010619.003 (#7131)");
134 is("$a $b $c", 'ba:ba ad:ae 10', "pos() works with () = m//; Bug 20010814.004 (#7526)");
141 my $message = 'UTF-8 return values from functions; Bug 20010407.006 (#6767)';
155 # High bit bug -- japhy
177 my $message = "s///eg [change 13f46d054db22cf4]; Bug 20020124.005 (#8335)";
190 my $message = "Correct pmop flags checked when empty pattern; Bug 20020412.005 (#8935)";
208 my $message = 'UTF-8 regex matches above 32k; Bug 20020630.002 (#10013)';
229 my $message = 'UTF-8 matching; Bug 15397';
238 my $message = 'Neither ()* nor ()*? sets $1 when matched 0 times; Bug 7471';
245 my $message = "Caching shouldn't prevent match; Bug 3547";
254 ok("\x{100}" =~ /(.)/, '$1 should keep UTF-8 ness; Bug 18232');
255 is($1, "\x{100}", '$1 is UTF-8; Bug 18232');
257 is($1, "\x{100}", '$1 is still UTF-8; Bug 18232');
258 isnt($1, "\xC4\x80", '$1 is not non-UTF-8; Bug 18232');
262 my $message = "Optimizer doesn't prematurely reject match; Bug 19767";
278 my $message = "(??{ }) doesn't return stale values; Bug 20683";
319 my $message = "(??{ .. }) in split doesn't corrupt its stack; Bug 21411";
334 is("@x", "'x':'...'", "Parse::RecDescent triggered infinite loop; Bug 17757");
339 ok("a\nb" !~ /^b/, "Propagated modifier; $_[0]; Bug 22354");
340 ok("a\nb" =~ /^b/m, "Propagated modifier; $_[0] - with /m; Bug 22354");
352 is("abcde", $`, 'Global match sets $`; Bug 19049');
360 my $message = "$Mess; Bug 23769";
368 $message = "$Mess (easy variant); Bug 23769";
372 $message = "$Mess (easy invariant); Bug 23769";
376 $message = "$Mess (regrepeat variant); Bug 23769";
380 $message = "$Mess (regrepeat invariant); Bug 23769";
384 $message = "$Mess (hard variant); Bug 23769";
388 $message = "$Mess (hard invariant); Bug 23769";
398 $message = "Don't match first byte of UTF-8 representation; Bug 23769";
408 'Captures can move backwards in string; Bug 25269');
413 like("a\cAb", qr/\cA/, '\cA in pattern; Bug 27940');
414 like("a\cAb", qr/[\cA]/, '\cA in character class; Bug 27940');
415 like("a\cAb", qr/[\cA-\cB]/, '\cA in character class range; Bug 27940');
416 like("abc", qr/[^\cA-\cB]/, '\cA in negated character class range; Bug 27940');
417 like("a\cBb", qr/[\cA-\cC]/, '\cB in character class range; Bug 27940');
418 like("a\cCbc", qr/[^\cA-\cB]/, '\cC in negated character class range; Bug 27940');
419 like("a\cAb", qr/(??{"\cA"})/, '\cA in ??{} pattern; Bug 27940');
420 unlike("ab", qr/a\cIb/x, '\cI in pattern; Bug 27940');
427 'Optional zero-width match at end of string; Bug 28532');
429 'Optional zero-width match at end of string; Bug 28532');
436 like($utf8, qr/\xe9/i, "utf8/latin; Bug 36207");
437 like($utf8, qr/$latin1/i, "utf8/latin runtime; Bug 36207");
438 like($utf8, qr/(abc|\xe9)/i, "utf8/latin trie; Bug 36207");
439 like($utf8, qr/(abc|$latin1)/i, "utf8/latin trie runtime; Bug 36207");
441 like("\xe9", qr/$utf8/i, "latin/utf8; Bug 36207");
442 like("\xe9", qr/(abc|$utf8)/i, "latin/utf8 trie; Bug 36207");
443 like($latin1, qr/$utf8/i, "latin/utf8 runtime; Bug 36207");
444 like($latin1, qr/(abc|$utf8)/i, "latin/utf8 trie runtime; Bug 36207");
453 "Assigning to original string does not corrupt match vars; Bug 37038");
512 skip "In EBCDIC and unclear what would trigger this bug there" if $::IS_EBCDIC;
519 {}, "Ill-formed UTF-8 doesn't match NUL in class; Bug 37836");
530 is($c, "", "U+FFFF, parsed as atom; Bug 38293");
535 is($c, "", "U+FFFF backslashed, parsed as atom; Bug 38293");
539 is($c, "", "U+FFFF, parsed in class; Bug 38293");
544 is($c, "", "U+FFFF backslashed, parsed in class; Bug 38293");
548 is($s, "AB", "U+FFFF, EXACTF; Bug 38293");
552 is($s, "\x{ffff}", "U+FFFF, BOUND; Bug 38293");
556 is($s, "\x{ffff}", "U+FFFF, NBOUND; Bug 38293");
575 ok($str =~ s/^(.*?)${delim}{4}//s, "Pattern matches; Bug 39583");
576 is($str, "", "Empty string; Bug 39583");
577 ok(defined $1 && length ($1) == $size, '$1 is correct size; Bug 39583');
581 like("\0-A", qr/\c@-A/, '@- should not be interpolated in a pattern; Bug 27940');
582 like("\0\0A", qr/\c@+A/, '@+ should not be interpolated in a pattern; Bug 27940');
583 like("X\@-A", qr/X@-A/, '@- should not be interpolated in a pattern; Bug 27940');
584 like("X\@\@A", qr/X@+A/, '@+ should not be interpolated in a pattern; Bug 27940');
586 like("X\0A", qr/X\c@?A/, '\c@?; Bug 27940');
587 like("X\0A", qr/X\c@*A/, '\c@*; Bug 27940');
588 like("X\0A", qr/X\c@(A)/, '\c@(; Bug 27940');
589 like("X\0A", qr/X(\c@)A/, '\c@); Bug 27940');
590 like("X\0A", qr/X\c@|ZA/, '\c@|; Bug 27940');
592 like("X\@A", qr/X@?A/, '@?; Bug 27940');
593 like("X\@A", qr/X@*A/, '@*; Bug 27940');
594 like("X\@A", qr/X@(A)/, '@(; Bug 27940');
595 like("X\@A", qr/X(@)A/, '@); Bug 27940');
596 like("X\@A", qr/X@|ZA/, '@|; Bug 27940');
599 like('abc', qr/(.)(.)(.)/, 'The last successful match is bogus; Bug 27940');
600 like("A@+B", qr/A@{+}B/, 'Interpolation of @+ in /@{+}/; Bug 27940');
601 like("A@-B", qr/A@{-}B/, 'Interpolation of @- in /@{-}/; Bug 27940');
602 like("A@+B", qr/A@{+}B/x, 'Interpolation of @+ in /@{+}/x; Bug 27940');
603 like("A@-B", qr/A@{-}B/x, 'Interpolation of @- in /@{-}/x; Bug 27940');
626 is($fetch[$_][0], $fetch[$_][1], "$names[$_]; Bug 50496");
631 is($res, 1, "'$s' =~ /(?<A>foo)\\s+(?<B>bar)?\\s+(?<C>baz)/; Bug 50496");
632 is($count, 3, "Got 3 keys in %+ via each; Bug 50496");
633 is(0 + @k, 3, "Got 3 keys in %+ via keys; Bug 50496");
634 is("@k", "A B C", "Got expected keys; Bug 50496");
635 is("@v", "bar baz foo", "Got expected values; Bug 50496");
640 is($@, '', 'lvalue $+ {...} should not throw an exception; Bug 50496');
668 is($fetch[$_][0], $fetch[$_][1], "$names[$_]; Bug 50496");
673 is($res, 1, "'$s' =~ /(?<D>(?<A>foo)\\s+(?<B>bar)?\\s+(?<C>baz))/; Bug 50496");
674 is($count, 4, "Got 4 keys in %+ via each; Bug 50496");
675 is(@k, 4, "Got 4 keys in %+ via keys; Bug 50496");
676 is("@k", "A B C D", "Got expected keys; Bug 50496");
677 is("@v", "bar baz foo foo bar baz", "Got expected values; Bug 50496");
682 is($@, '', 'lvalue $+ {...} should not throw an exception; Bug 50496');
691 is($mval, 0, '@- should be empty; Bug 36046');
692 is($pval, 0, '@+ should be empty; Bug 36046');
693 is($count, 1, 'Should have matched once only; Bug 36046');
697 my $message = '/m in precompiled regexp; Bug 40684';
705 my $message = '(?: ... )? should not lose $^R; Bug 36909';
750 my $message = 'Match is quadratic due to eval; See Bug 22395';
759 my $message = 'Match is linear, not quadratic; Bug 22395.';
771 my $message = '@-/@+ should not have undefined values; Bug 22614';
779 my $message = '$& set on s///; Bug 18209';
806 is("@res", "A B C", "/g pattern shouldn't infinite loop; Bug 6893");
810 # No optimizer bug
820 ok(/$re/ && $1 eq $_, "'$_' =~ /$re/; Bug 41010");
821 ok(/$re/m && $1 eq $_, "'$_' =~ /$re/m; Bug 41010");
847 is($1, "\xd6", "Upgrade error; Bug 45605");
860 "\$c =~ /\$c/i : chr ($o) : u_str = $u_str u_pat = $u_pat; Bug 36207");
862 "\$c=~/\$c|xyz/i : chr($o) : u_str = $u_str u_pat = $u_pat; Bug 36207");
869 my $message = '$REGMARK in replacement; Bug 49190';
884 my $message = 'Substitution evaluation in list context; Bug 52658';
895 '(?>) does not cause wrongness on long string; Bug 60034');
898 is($a, $b, 'Bug 60034');
900 '(?>) does not cause wrongness on long string with UTF-8; Bug 60034');
910 'affect previous success; Bug 19049/38869';
928 ok (("a" x (2 ** 15 - 10)) =~ /^()(a|bb)*$/, "Recursive stack cracker; Bug 24274");
932 "Regexp /^(??{'(.)'x 100})/ crashes older perls; Bug 24274");
939 my $message = "Shouldn't panic; Bug 45337";
945 my $message = "Check if tree logic breaks \$^R; Bug 57042";
981 is($k2, "\x{2022}", "utf8::SWASHNEW doesn't cause capture leaks; Bug 60508");
995 like($s, $pat, "$pat; Bug 65372");
1013 = 'utf8 =~ /trie/ where trie matches a continuation octet; Bug 70998';
1019 # This bug can be reduced to
1050 'stclass optimisation does not break + inside (?=); Bug 68564');
1060 # Bug #56444
1064 # Bug #62056