Change 34897 by [EMAIL PROTECTED] on 2008/11/21 09:21:11
Integrate:
[ 34896]
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/maint-5.10/perl/gv.c#7 integrate
... //depot/maint-5.10/perl/perl.c#22 integrate
Differences ...
==== //depot/maint-5.10/perl/gv.c#7 (text) ====
Index: perl/gv.c
--- perl/gv.c#6~34715~ 2008-11-04 00:28:29.000000000 -0800
+++ perl/gv.c 2008-11-21 01:21:11.000000000 -0800
@@ -2064,7 +2064,7 @@
PUSHs((SV*)cv);
PUTBACK;
- if ((PL_op = Perl_pp_entersub(aTHX)))
+ if ((PL_op = PL_ppaddr[OP_ENTERSUB](aTHX)))
CALLRUNOPS(aTHX);
LEAVE;
SPAGAIN;
==== //depot/maint-5.10/perl/perl.c#22 (text) ====
Index: perl/perl.c
--- perl/perl.c#21~34707~ 2008-11-03 11:50:31.000000000 -0800
+++ perl/perl.c 2008-11-21 01:21:11.000000000 -0800
@@ -145,13 +145,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.
