Commit | Line | Data |
1b24ed4b |
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 | # The -l switch should be applied from the #! line. |
21 | # Unfortunately, -P has a bug whereby the #! line is ignored. |
22 | # If this test suddenly starts printing blank lines that bug is fixed. |
23 | |
24 | #define FOO "ok 1\n" |
25 | |
26 | #ifdef BARMAR |
27 | # define YAR "not ok 2\n" |
28 | #else |
29 | # define YAR "ok 2\n" |
30 | #endif |
31 | |
32 | print "1..2\n"; |
33 | print FOO; |
34 | print YAR; |