Change 34896 by [EMAIL PROTECTED] on 2008/11/20 15:04:08
Subject: Hard-coded Perl_pp_entersub and Perl_pp_entereval should use
PL_ppaddr
From: Tim Bunce <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 20 Nov 2008 13:17:19 +0000
[tweaked for blead because of change 27941]
Affected files ...
... //depot/perl/gv.c#410 edit
... //depot/perl/perl.c#887 edit
Differences ...
==== //depot/perl/gv.c#410 (text) ====
Index: perl/gv.c
--- perl/gv.c#409~34831~ 2008-11-14 04:37:01.000000000 -0800
+++ perl/gv.c 2008-11-20 07:04:08.000000000 -0800
@@ -2156,7 +2156,7 @@
PUSHs(MUTABLE_SV(cv));
PUTBACK;
- if ((PL_op = Perl_pp_entersub(aTHX)))
+ if ((PL_op = PL_ppaddr[OP_ENTERSUB](aTHX)))
CALLRUNOPS(aTHX);
LEAVE;
SPAGAIN;
==== //depot/perl/perl.c#887 (text) ====
Index: perl/perl.c
--- perl/perl.c#886~34831~ 2008-11-14 04:37:01.000000000 -0800
+++ perl/perl.c 2008-11-20 07:04:08.000000000 -0800
@@ -149,13 +149,13 @@
#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);
End of Patch.
