[perl5.git] / t / run / switchx2.aux

From: foo@bar.xx
Date: Jan 1, 2037 12:34 PM
Subject: Ignore mail header
To: perl@perl.xx

#perl
Not perl

#!
Still not perl

#!/something/else
Still not perl

#!/usr/bin/bash
# Ignore shell commands
if [[ -z $FOO ]]; then echo 'not ok 1'; fi

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

# These lines get executed
my $test = $ARGV[0];
if (-f 'switchx.t') {
    print("ok $test - perl -l option tested");
}
$test++;
print "ok $test - Second test file utilized";

__END__

# This is ignored
print "not ok $test";
Commit	Line	Data
94e93a7a JH	1	From: foo@bar.xx
	2	Date: Jan 1, 2037 12:34 PM
	3	Subject: Ignore mail header
	4	To: perl@perl.xx
	5
	6	#perl
	7	Not perl
	8
	9	#!
	10	Still not perl
	11
	12	#!/something/else
	13	Still not perl
	14
	15	#!/usr/bin/bash
	16	# Ignore shell commands
	17	if [[ -z $FOO ]]; then echo 'not ok 1'; fi
	18
	19	#!/some/path/that/leads/to/perl -l
	20
	21	# These lines get executed
	22	my $test = $ARGV[0];
	23	if (-f 'switchx.t') {
de9564ec	24	print("ok $test - perl -l option tested");
94e93a7a JH	25	}
94e93a7a JH	26	$test++;
de9564ec	27	print "ok $test - Second test file utilized";
94e93a7a JH	28
	29	__END__
	30
	31	# This is ignored
	32	print "not ok $test";