summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/regexec.c b/regexec.c
index f384c4d32c..3393d8c602 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4273,6 +4273,10 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
new_comppad = initial_pad; /* the pad of the current sub */
PL_op = (OP_4tree*)rexi->data->data[n];
}
+ else if (rexi->data->what[n] == 'L') { /* literal with own CV */
+ new_comppad = (PAD*)AvARRAY(CvPADLIST(rex->qr_anoncv))[1];
+ PL_op = (OP_4tree*)rexi->data->data[n];
+ }
else {
PL_op = (OP_4tree*)rexi->data->data[n];
new_comppad = (PAD*)rexi->data->data[n + 2];