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