1 files changed, 2 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index 3876a7833b..f8220113e7 100644
--- a/perl.c
+++ b/perl.c
@@ -149,13 +149,13 @@ static I32 read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen);
 
 #define CALL_BODY_EVAL(myop) \
     if (PL_op == (myop)) \
-	PL_op = Perl_pp_entereval(aTHX); \
+	PL_op = PL_ppaddr[OP_ENTEREVAL](aTHX); \
     if (PL_op) \
 	CALLRUNOPS(aTHX);
 
 #define CALL_BODY_SUB(myop) \
     if (PL_op == (myop)) \
-	PL_op = Perl_pp_entersub(aTHX); \
+	PL_op = PL_ppaddr[OP_ENTERSUB](aTHX); \
     if (PL_op) \
 	CALLRUNOPS(aTHX);