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'; | |
59910836 | 8 | $ENV{PERL5LIB} = '../lib'; |
1b2cf9d6 JH |
9 | |
10 | use Config; | |
dc459aad | 11 | if ( $^O eq 'MacOS' || ($Config{'cppstdin'} =~ /\bcppstdin\b/) && |
68727c7f | 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 MS |
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' ); |