diff options
author | Karl Williamson <khw@cpan.org> | 2022-07-28 13:45:02 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-07-28 14:30:33 -0600 |
commit | 8fbe3f6f1f4601bcc57d08281926626130213069 (patch) | |
tree | 1aeea643830f90c814f7549de7074da50a9c33ab /t/re | |
parent | f217bf5e4223bccd8b36a3b91a90831a62b21437 (diff) | |
download | perl-8fbe3f6f1f4601bcc57d08281926626130213069.tar.gz |
Fix GH #20009, pattern match panic
This was the result of using the wrong case in a switch()
Thanks to @bram-perl for the idea of the test case reduction
Diffstat (limited to 't/re')
-rw-r--r-- | t/re/pat_advanced.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index 2a2541142e..232dbe5338 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -2688,6 +2688,12 @@ EOF_DEBUG_OUT {}, "Related to Github Issue #19350, forward \\g{x} pattern segv under use re Debug => 'PARSE'"); } + { # GH 20009 + my $x = "awesome quotes"; + utf8::upgrade($x); + $x =~ s/^[\x{0301}\x{030C}]+//; + } + # !!! NOTE that tests that aren't at all likely to crash perl should go # a ways above, above these last ones. There's a comment there that, like |