From: Michael G. Schwern <schwern@pobox.com>
Date: Tue, 27 Nov 2001 03:38:24 +0000 (-0500)
Subject: Remove redundant #! parsing.  Deparse tests better.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f6bec1d718b5383182c91d0fb6c38b9facd1c87;p=p5sagit%2Fp5-mst-13.2.git

Remove redundant #! parsing.  Deparse tests better.
Message-ID: <20011127033824.A17775@blackrider>

p4raw-id: //depot/perl@13310
---

diff --git a/t/TEST b/t/TEST
index d558749..5ef0125 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') {