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'; |
1b2cf9d6 |
8 | |
9 | use Config; |
10 | if ( $^O eq 'MSWin32' or $^O eq 'MacOS' or |
11 | ($Config{'cppstdin'} =~ /\bcppstdin\b/) and |
12 | ( ! -x $Config{'binexp'} . "/cppstdin") ) { |
13 | print "1..0 # Skip: \$Config{cppstdin} unavailable\n"; |
14 | exit; # Cannot test till after install, alas. |
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' ); |