Bug#722448: now for() items are getting zapped by unrelated file opens

[jidanni at jidanni.org]

Package: perl
Version: 5.18.1-3
Severity: wishlist

Unbelievable. As of today this zaps the innocent for() item!



$ cat e
#!/usr/bin/perl
use Data::Dumper;
my @ARGZ = ( "xCOUCH", "VAL" );
print Dumper(@ARGZ);
for ( $ARGZ[0] ) {
    if (/^xCOUCH$/) {
        my $p = youtube_info(99);
    }
}
die Dumper(@ARGZ);
sub youtube_info {

    open( my $in, "<", "/dev/null" ) or die "Can't open YT DB: $!";
    while (<$in>) {
        next;
    }
    close $in;
}
$ perl e
$VAR1 = 'xCOUCH';
$VAR2 = 'VAL';
$VAR1 = undef;
$VAR2 = 'VAL';