nargv.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
print "1..5\n";
my $j = 1;
for $i ( 1,2,5,4,3 ) {
}
{
local *ARGV;
local $^I = '.bak';
local $_;
$n = 0;
while (<>) {
if ($n++ == 2) {
}
}
}
$^I = undef;
$n = 0;
while (<>) {
if ($n++ == 2) {
}
}
sub show {
#warn "$ARGV: $_";
s/^not //;
print;
}
sub other {
local *ARGV;
local *ARGVOUT;
local $_;
while (<>) {
}
}
sub mkfiles {
}