1Some stuff that's not Perl 2 3This CPP directive should not be read. 4#define BARMAR 1 5 6#perl 7 8Still not perl. 9 10#! 11 12still not perl 13 14#!/something/else 15 16still 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 32print "1..2\n"; 33print FOO; 34print YAR; 35