Michael G. Schwern [Tue, 27 Nov 2001 03:38:24 +0000 (22:38 -0500)]
Message-ID: <
20011127033824.A17775@blackrider>
p4raw-id: //depot/perl@13310
$test = $OVER{$test} if exists $OVER{$test};
- open(SCRIPT,"<$test") or die "Can't run $test.\n";
- $_ = <SCRIPT>;
- close(SCRIPT) unless ($type eq 'deparse');
- if (/#!.*perl(.*)$/) {
- $switch = $1;
- if ($^O eq 'VMS') {
- # Must protect uppercase switches with "" on command line
- $switch =~ s/-([A-Z]\S*)/"-$1"/g;
- }
- }
- else {
- $switch = '';
- }
+ open(SCRIPT,"<$test") or die "Can't run $test.\n";
+ $_ = <SCRIPT>;
+ close(SCRIPT) unless ($type eq 'deparse');
+ if (/#!.*\bperl.*-\w*T/) {
+ $switch = '"-T"';
+ }
+ else {
+ $switch = '';
+ }
my $file_opts = "";
if ($type eq 'deparse') {