| Line | |
|---|
| 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;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
