[perl5.git] / t / run / switcha.t

#!./perl -na

BEGIN {
    print "1..2\n";
    *ARGV = *DATA;
    $i = 0;
}
print "$F[1] ",++$i,"\n";

__DATA__
not ok
not ok 3
Commit	Line	Data
d11311f7 RGS	1	#!./perl -na
	2
	3	BEGIN {
	4	print "1..2\n";
	5	ARGV = DATA;
	6	$i = 0;
	7	}
	8	print "$F[1] ",++$i,"\n";
	9
	10	__DATA__
	11	not ok
	12	not ok 3