diff options
author | Karl Williamson <khw@cpan.org> | 2020-02-24 22:25:07 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-03-11 16:09:43 -0600 |
commit | 71562af6e946a38bf57b167ac53ea5d1fda899ca (patch) | |
tree | ee54f9b79327c5abb509ba4c2ea01d36944e505e /regexec.c | |
parent | c73851c36d0d76f1f87ffac7cd6348aeb7c24fa0 (diff) | |
download | perl-71562af6e946a38bf57b167ac53ea5d1fda899ca.tar.gz |
Allow debugging from regexec.c back to regcomp.c
The compilation of User-defined properties in a regular expression that
haven't been defined at the time that pattern is compiled is deferred
until execution time. Until this commit, any request for debugging info
on those was ignored.
This fixes that by
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -10244,8 +10244,14 @@ S_reginclass(pTHX_ regexp * const prog, const regnode * const n, const U8* const && IN_UTF8_CTYPE_LOCALE))) { SV* only_utf8_locale = NULL; - SV * const definition = _get_regclass_nonbitmap_data(prog, n, TRUE, - 0, &only_utf8_locale, NULL); + SV * const definition = +#if !defined(PERL_IN_XSUB_RE) || defined(PLUGGABLE_RE_EXTENSION) + get_regclass_nonbitmap_data(prog, n, TRUE, 0, + &only_utf8_locale, NULL); +#else + get_re_gclass_nonbitmap_data(prog, n, TRUE, 0, + &only_utf8_locale, NULL); +#endif if (definition) { U8 utf8_buffer[2]; U8 * utf8_p; |