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 /regexec.c | |
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 'regexec.c')
-rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10365,7 +10365,7 @@ S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, } break; - case ANYOFHbbm: + case ANYOFHbbm_t8: while ( hardcount < max && scan + 1 < this_eol && (U8) *scan == ANYOF_FLAGS(p) |