projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Loop in S_init_perllib(), only calling S_incpush*() with INCPUSH_ADD_OLD_VERS
[p5sagit/p5-mst-13.2.git]
/
t
/
run
/
switchx.aux
1
Some stuff that's not Perl
2
3
This CPP directive should not be read.
4
#define BARMAR 1
5
6
#perl
7
8
Still not perl.
9
10
#!
11
12
still not perl
13
14
#!/something/else
15
16
still not perl
17
18
#!/some/path/that/leads/to/perl -l
19
20
print "1..4";
21
if (-f 'run/switchx.aux') {
22
print "ok 1";
23
}
24
print "ok 2";
25
# other tests are in switchx2.aux
26
27
__END__
28
29
# This is ignored
30
print "not ok 2";