Use tempfile() in tests
[perl.git] / t / run / switchF.t
1 #!./perl -anFx+
2
3 BEGIN {
4     print "1..2\n";
5     *ARGV = *DATA;
6 }
7 print "@F";
8
9 __DATA__
10 okx1
11 okxxx2