summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-01-26 15:17:09 +0000
committerNicholas Clark <nick@ccl4.org>2008-01-26 15:17:09 +0000
commit9a98d8a1ee5dd7f1caa95f2ec5ab0341e0b4f8d1 (patch)
tree803703c501bc3537181d701821c8175adc6e4ec5 /cop.h
parentb99874c7926b2f5919256cf4bcee8eb7bf3dff22 (diff)
downloadperl-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.h3
1 files changed, 3 insertions, 0 deletions
diff --git a/cop.h b/cop.h
index 48f9d5b2e4..359abd61ff 100644
--- a/cop.h
+++ b/cop.h
@@ -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);