This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Replaced 'unlink' with 'unlink_all' in t/io/nargv.t
[perl5.git] / t / run / switchn.t
1 #!./perl -n
2
3 BEGIN {
4     print "1..2\n";
5     *ARGV = *DATA;
6 }
7 print;
8
9 __DATA__
10 ok 1
11 ok 2