This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test '-x dir'
[perl5.git] / t / run / switchx.aux
1 Some stuff that's not Perl
2
3 This CPP directive should not be read.
4 #define BARMAR 1
5
6 #perl
7
8 Still not perl.
9
10 #!
11
12 still not perl
13
14 #!/something/else
15
16 still not perl
17
18 #!/some/path/that/leads/to/perl -l
19
20 print "1..4";
21 if (-f 'run/switchx.aux') {
22     print "ok 1";
23 }
24 print "ok 2";
25 # other tests are in switchx2.aux
26
27 __END__
28
29 # This is ignored
30 print "not ok 2";