diff options
author | Tim Bunce <Tim.Bunce@pobox.com> | 2008-11-20 13:17:19 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-11-21 09:21:11 +0000 |
commit | dc0272e595091b6e2b2f834ecb915afab8e461f7 (patch) | |
tree | aa06d4110a3465d2f9b912ba7c3fea6cc61ed99c /perl.c | |
parent | a6152e8cce0ebca9f28e1abfd1835debbf4c4f54 (diff) | |
download | perl-dc0272e595091b6e2b2f834ecb915afab8e461f7.tar.gz |
Integrate:
[ 34896]
Subject: 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-link: @34896 on //depot/perl: 139d0ce69f7cc12a8ffc1a75bbb5c65306d08d35
p4raw-id: //depot/maint-5.10/perl@34897
p4raw-integrated: from //depot/perl@34893 'merge in' gv.c perl.c
(@34831..)
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -145,13 +145,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); |