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