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

1 files changed, 1 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index f278e37ce5..58e6f8f091 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;