| Line | |
|---|
| 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';
|
|---|
| 8 | $ENV{PERL5LIB} = '../lib';
|
|---|
| 9 |
|
|---|
| 10 | use Config;
|
|---|
| 11 | if ( $^O eq 'MacOS' || ($Config{'cppstdin'} =~ /\bcppstdin\b/) &&
|
|---|
| 12 | ! -x $Config{'binexp'} . "/cppstdin" ) {
|
|---|
| 13 | print "1..0 # Skip: \$Config{cppstdin} unavailable\n";
|
|---|
| 14 | exit; # Cannot test till after install, alas.
|
|---|
| 15 | }
|
|---|
| 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' );
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
