From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Thu, 20 Nov 2008 13:17:19 +0000 (+0000)
Subject: Hard-coded Perl_pp_entersub and Perl_pp_entereval should use PL_ppaddr
X-Git-Tag: accepted/trunk/20130322.191538~12496
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=139d0ce69f7cc12a8ffc1a75bbb5c65306d08d35;p=platform%2Fupstream%2Fperl.git

Hard-coded Perl_pp_entersub and Perl_pp_entereval should use PL_ppaddr
Message-ID: <20081120131719.GA32120@timac.local>

[tweaked for blead because of change 27941]

p4raw-id: //depot/perl@34896
---

diff --git a/gv.c b/gv.c
index f278e37..58e6f8f 100644
--- a/gv.c
+++ b/gv.c
@@ -2156,7 +2156,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
     PUSHs(MUTABLE_SV(cv));
     PUTBACK;
 
-    if ((PL_op = Perl_pp_entersub(aTHX)))
+    if ((PL_op = PL_ppaddr[OP_ENTERSUB](aTHX)))
       CALLRUNOPS(aTHX);
     LEAVE;
     SPAGAIN;
diff --git a/perl.c b/perl.c
index 3876a78..f822011 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);