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';
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
