Change 13310: [PATCH t/TEST] Remove redundant #! parsing. Deparse tests better.

[Jarkko Hietaniemi]

Change 13310 by jhi@alpha on 2001/11/27 13:23:28

        Subject: [PATCH t/TEST] Remove redundant #! parsing.  Deparse tests better.
        From: Michael G Schwern <[EMAIL PROTECTED]>
        Date: Tue, 27 Nov 2001 03:38:24 -0500
        Message-ID: <20011127033824.A17775@blackrider>

Affected files ...

.... //depot/perl/t/TEST#64 edit

Differences ...

==== //depot/perl/t/TEST#64 (xtext) ====
Index: perl/t/TEST
--- perl/t/TEST.~1~     Tue Nov 27 06:30:06 2001
+++ perl/t/TEST Tue Nov 27 06:30:06 2001
@@ -163,19 +163,15 @@
 
        $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') {
End of Patch.