This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
foreach defelem magic should only be applied to PL_sv_undef
authorGisle Aas <gisle@aas.no>
Tue, 17 Apr 2001 19:06:45 +0000 (12:06 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 18 Apr 2001 03:54:11 +0000 (03:54 +0000)
Message-ID: <lrae5f9d1m.fsf@caliper.ActiveState.com>

p4raw-id: //depot/perl@9734

pp_hot.c
t/op/misc.t

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);
index 4ff0bf4..125bfe1 100755 (executable)
@@ -258,6 +258,15 @@ my @a; $a[2] = 1; for (@a) { $_ = 2 } print "@a\n"
 EXPECT
 2 2 2
 ########
+# used to attach defelem magic too all immortal values,
+# which made restore of local $_ fail.
+foo(2>1);
+sub foo { bar() for @_;  }
+sub bar { local $_; }
+print "ok\n";
+EXPECT
+ok
+########
 @a = ($a, $b, $c, $d) = (5, 6);
 print "ok\n"
   if ($a[0] == 5 and $a[1] == 6 and !defined $a[2] and !defined $a[3]);