-=| [email protected], 11.09.2013 14:59:42 +0800 |=- > Package: perl > Version: 5.18.1-3 > Severity: wishlist > > Unbelievable. As of today this zaps the innocent for() item! > > 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>) {
This <$in> uses the global $_ variable, overwriting anything aliased to it. No bug here.
signature.asc
Description: Digital signature
