PUSHEVAL: make retop a parameter

Rather than doing cx->blk_eval.retop = NULL in PUSHEVAL, then relying on
the caller to subsequently change it to something more useful, make it an
arg to PUSHEVAL.

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index c86daa99e4..9858f16af2 100644
--- a/perl.c
+++ b/perl.c
@@ -2779,7 +2779,7 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags)
 	myop.op_other = (OP*)&myop;
 	(void)POPMARK;
         old_cxix = cxstack_ix;
-	create_eval_scope(flags|G_FAKINGEVAL);
+	create_eval_scope(NULL, flags|G_FAKINGEVAL);
 	(void)INCMARK;
 
 	JMPENV_PUSH(ret);