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
CommitLineData
77818208
MS
1Some stuff that's not Perl
2
3This CPP directive should not be read.
4#define BARMAR 1
5
6#perl
7
8Still not perl.
9
10#!
11
12still not perl
13
14#!/something/else
15
16still not perl
17
18#!/some/path/that/leads/to/perl -l
19
94e93a7a
JH
20print "1..4";
21if (-f 'run/switchx.aux') {
22 print "ok 1";
23}
24print "ok 2";
25# other tests are in switchx2.aux
26
27__END__
28
29# This is ignored
30print "not ok 2";