Remove redundant #! parsing. Deparse tests better.
Michael G. Schwern [Tue, 27 Nov 2001 03:38:24 +0000 (22:38 -0500)]
Message-ID: <20011127033824.A17775@blackrider>

p4raw-id: //depot/perl@13310

t/TEST

diff --git a/t/TEST b/t/TEST
index d558749..5ef0125 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -163,19 +163,15 @@ EOT
 
        $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') {