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