Commit | Line | Data |
94e93a7a |
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"; |