diff options
| author | Gisle Aas <gisle@aas.no> | 2001-04-17 12:06:45 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-18 03:54:11 +0000 |
| commit | 8b53063310ef49fb71e3b9e0e66cc606e87c82ff (patch) | |
| tree | c4361563247e2ef3d95589cf3e08dff69a8fb555 /pp_hot.c | |
| parent | acf4de664ae76836ab3f82852266310a4f5d36b9 (diff) | |
| download | perl-8b53063310ef49fb71e3b9e0e66cc606e87c82ff.tar.gz | |
foreach defelem magic should only be applied to PL_sv_undef
Message-ID: <lrae5f9d1m.fsf@caliper.ActiveState.com>
p4raw-id: //depot/perl@9734
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |