summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-02-24 22:25:07 -0700
committerKarl Williamson <khw@cpan.org>2020-03-11 16:09:43 -0600
commit71562af6e946a38bf57b167ac53ea5d1fda899ca (patch)
treeee54f9b79327c5abb509ba4c2ea01d36944e505e /regexec.c
parentc73851c36d0d76f1f87ffac7cd6348aeb7c24fa0 (diff)
downloadperl-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.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index ee961e754c..925a04816b 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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;