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'; | |
8 | } | |
9 | ||
10 | require './test.pl'; | |
11 | ||
12 | print runperl( switches => ['-Px'], | |
13 | nolib => 1, # for some reason this is necessary under VMS | |
14 | progfile => 'run/switchPx.aux' ); |