Commit | Line | Data |
1b24ed4b |
1 | #!./perl |
2 | |
3 | # Ensure that the -P and -x flags work together. |
4 | |
5 | BEGIN { |
6 | chdir 't' if -d 't'; |
7 | @INC = '../lib'; |
59910836 |
8 | $ENV{PERL5LIB} = '../lib'; |
1b2cf9d6 |
9 | |
10 | use Config; |
68727c7f |
11 | if ( ($Config{'cppstdin'} =~ /\bcppstdin\b/) && |
12 | ! -x $Config{'binexp'} . "/cppstdin" ) { |
1b2cf9d6 |
13 | print "1..0 # Skip: \$Config{cppstdin} unavailable\n"; |
68727c7f |
14 | exit; # Cannot test till after install, alas. |
1b2cf9d6 |
15 | } |
1b24ed4b |
16 | } |
17 | |
18 | require './test.pl'; |
19 | |
20 | print runperl( switches => ['-Px'], |
21 | nolib => 1, # for some reason this is necessary under VMS |
22 | progfile => 'run/switchPx.aux' ); |