diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-07-01 15:40:40 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-01 15:40:40 +0000 |
| commit | fd617465265ed0cd97256c819ae8e3e4cde70989 (patch) | |
| tree | 5fa796d09f8279cd6ba1d45cb2f7e0335a6c0ce1 /pp_sys.c | |
| parent | d951c35852a72e504eea00883fb91f69a81b8ce3 (diff) | |
| download | perl-fd617465265ed0cd97256c819ae8e3e4cde70989.tar.gz | |
the PAD_SET_CUR macro expanded too much for AIX compilers
p4raw-id: //depot/perl@25042
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1270,7 +1270,8 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) PUSHBLOCK(cx, CXt_FORMAT, PL_stack_sp); PUSHFORMAT(cx); cx->blk_sub.retop = retop; - PAD_SET_CUR(CvPADLIST(cv), 1); + SAVECOMPPAD(); + PAD_SET_CUR_NOSAVE(CvPADLIST(cv), 1); setdefout(gv); /* locally select filehandle so $% et al work */ return CvSTART(cv); |