From 2f6bec1d718b5383182c91d0fb6c38b9facd1c87 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Mon, 26 Nov 2001 22:38:24 -0500
Subject: Remove redundant #! parsing.  Deparse tests better. Message-ID:
 <20011127033824.A17775@blackrider>

p4raw-id: //depot/perl@13310
---
 t/TEST | 22 +++++++++-------------
 1 file changed, 9 insertions(+), 13 deletions(-)

diff --git a/t/TEST b/t/TEST
index d55874981f..5ef012547b 100755
--- 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') {
-- 
cgit v1.2.1