From: Jarkko Hietaniemi Date: Wed, 4 Jul 2001 16:07:35 +0000 (+0000) Subject: gcc -Wall nit. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09256e2f0d59f0f0dc9d72834a451ff542a26cf0;p=p5sagit%2Fp5-mst-13.2.git gcc -Wall nit. p4raw-id: //depot/perl@11144 --- diff --git a/pp_hot.c b/pp_hot.c index ee6c28a..9d51b1e 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -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; }