diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-26 15:17:09 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-26 15:17:09 +0000 |
commit | 9a98d8a1ee5dd7f1caa95f2ec5ab0341e0b4f8d1 (patch) | |
tree | 803703c501bc3537181d701821c8175adc6e4ec5 /cop.h | |
parent | b99874c7926b2f5919256cf4bcee8eb7bf3dff22 (diff) | |
download | perl-9a98d8a1ee5dd7f1caa95f2ec5ab0341e0b4f8d1.tar.gz |
Restore the else block accidently eaten by change 33074.
p4raw-id: //depot/perl@33075
Diffstat (limited to 'cop.h')
-rw-r--r-- | cop.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -520,6 +520,9 @@ struct block_loop { sv_2mortal(*s_v_p); \ *s_v_p = cx->blk_loop.itersave; \ } \ + else { \ + SvREFCNT_dec(cx->blk_loop.itersave); \ + } \ } \ if (CxTYPE(cx) == CXt_LOOP_FOR) \ SvREFCNT_dec(cx->blk_loop.state_u.ary.ary); |