Commit | Line | Data |
---|---|---|
1b24ed4b MS |
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'; | |
1b2cf9d6 JH |
8 | |
9 | use Config; | |
68727c7f AD |
10 | if ( ($Config{'cppstdin'} =~ /\bcppstdin\b/) && |
11 | ! -x $Config{'binexp'} . "/cppstdin" ) { | |
1b2cf9d6 | 12 | print "1..0 # Skip: \$Config{cppstdin} unavailable\n"; |
68727c7f | 13 | exit; # Cannot test till after install, alas. |
1b2cf9d6 | 14 | } |
1b24ed4b MS |
15 | } |
16 | ||
17 | require './test.pl'; | |
18 | ||
19 | print runperl( switches => ['-Px'], | |
20 | nolib => 1, # for some reason this is necessary under VMS | |
21 | progfile => 'run/switchPx.aux' ); |