summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index c41084d6a2..7e03d2018b 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -5116,6 +5116,9 @@ PP(pp_entereval)
} else if (!saved_delete) {
(void)hv_delete(PL_defstash, tmpbuf, len, G_DISCARD);
}
+ if (PL_op->op_private & OPpEVAL_EVALSV)
+ /* signal compiletime failure to our eval_sv() caller */
+ *++PL_stack_sp = NULL;
return PL_op->op_next;
}
}