This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test '-x dir'
[perl5.git] / t / run / switchx2.aux
CommitLineData
94e93a7a
JH
1From: foo@bar.xx
2Date: Jan 1, 2037 12:34 PM
3Subject: Ignore mail header
4To: perl@perl.xx
5
6#perl
7Not perl
8
9#!
10Still not perl
11
12#!/something/else
13Still not perl
14
15#!/usr/bin/bash
16# Ignore shell commands
17if [[ -z $FOO ]]; then echo 'not ok 1'; fi
18
19#!/some/path/that/leads/to/perl -l
20
21# These lines get executed
22my $test = $ARGV[0];
23if (-f 'switchx.t') {
24 print("ok $test");
25}
26$test++;
27print "ok $test";
28
29__END__
30
31# This is ignored
32print "not ok $test";