projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
for(;;), sort
[p5sagit/p5-mst-13.2.git]
/
pp_hot.c
diff --git
a/pp_hot.c
b/pp_hot.c
index
70c6866
..
de75f27
100644
(file)
--- a/
pp_hot.c
+++ b/
pp_hot.c
@@
-1817,7
+1817,7
@@
PP(pp_iter)
SvTEMP_off(sv);
else
sv = &PL_sv_undef;
- if (av != PL_curstack && SvIMMORTAL(sv)) {
+ if (av != PL_curstack && sv == &PL_sv_undef) {
SV *lv = cx->blk_loop.iterlval;
if (lv && SvREFCNT(lv) > 1) {
SvREFCNT_dec(lv);