diff options
| author | Tim Bunce <Tim.Bunce@pobox.com> | 2008-11-20 13:17:19 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-20 15:04:08 +0000 |
| commit | 139d0ce69f7cc12a8ffc1a75bbb5c65306d08d35 (patch) | |
| tree | ccc03140d436018be75ca571e55ced7611e5a88e /perl.c | |
| parent | 49947b44604f4ad78042983f22bb71affe999fb9 (diff) | |
| download | perl-139d0ce69f7cc12a8ffc1a75bbb5c65306d08d35.tar.gz | |
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
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |