diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-04 16:07:35 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-04 16:07:35 +0000 |
commit | 09256e2f0d59f0f0dc9d72834a451ff542a26cf0 (patch) | |
tree | 2f9d704ca6125705d744cf6c923ffe54b2437f29 | |
parent | 85657ebf3744ff89b90f9708aef61cdd320552fb (diff) | |
download | perl-09256e2f0d59f0f0dc9d72834a451ff542a26cf0.tar.gz |
gcc -Wall nit.
p4raw-id: //depot/perl@11144
-rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1719,12 +1719,12 @@ PP(pp_leave) SP = newsp; else if (gimme == G_SCALAR) { MARK = newsp + 1; - if (MARK <= SP) + if (MARK <= SP) { if (SvFLAGS(TOPs) & (SVs_PADTMP|SVs_TEMP)) *MARK = TOPs; else *MARK = sv_mortalcopy(TOPs); - else { + } else { MEXTEND(mark,0); *MARK = &PL_sv_undef; } |