source: vendor/perl/5.8.8/t/run/switchPx.aux

Some stuff that's not Perl

This CPP directive should not be read.
#define BARMAR 1

#perl

Still not perl.

#!

still not perl

#!/something/else

still not perl

#!/some/path/that/leads/to/perl -l

# The -l switch should be applied from the #! line.
# Unfortunately, -P has a bug whereby the #! line is ignored.
# If this test suddenly starts printing blank lines that bug is fixed.

#define FOO "ok 1\n"

#ifdef BARMAR
#   define YAR "not ok 2\n"
#else
#   define YAR "ok 2\n"
#endif

print "1..2\n";
print FOO;
print YAR;