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 / switchx2.aux
1 From: foo@bar.xx
2 Date: Jan 1, 2037 12:34 PM
3 Subject: Ignore mail header
4 To: perl@perl.xx
5
6 #perl
7 Not perl
8
9 #!
10 Still not perl
11
12 #!/something/else
13 Still not perl
14
15 #!/usr/bin/bash
16 # Ignore shell commands
17 if [[ -z $FOO ]]; then echo 'not ok 1'; fi
18
19 #!/some/path/that/leads/to/perl -l
20
21 # These lines get executed
22 my $test = $ARGV[0];
23 if (-f 'switchx.t') {
24     print("ok $test");
25 }
26 $test++;
27 print "ok $test";
28
29 __END__
30
31 # This is ignored
32 print "not ok $test";