[perl5.git] / 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;
Commit	Line	Data
1b24ed4b MS	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;