From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 22 Jan 2002 22:14:26 +0000 (-0600)
Subject: test.com shebang handling (was Re: VMS@14369)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19b5e0e6db538b0b45f98873e72dea5d7d94fde5;p=p5sagit%2Fp5-mst-13.2.git

test.com shebang handling (was Re: VMS@14369)
Message-Id: <a05101000b873de9cf801@[172.16.52.1]>

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

diff --git a/vms/test.com b/vms/test.com
index 8c4d840..bd96543 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -102,10 +102,8 @@ while ($test = shift) {
 	open(script,"$test") || die "Can't run $test.\n";
 	$_ = <script>;
 	close(script);
-	if (/#!..perl(.*)/) {
-	    $switch = $1;
-	    # Add "" to protect uppercase switches on command line
-	    $switch =~ s/-(\S*[A-Z]\S*)/"-$1"/g;
+	if (/#!.*\bperl.*-\w*([tT])/) {
+	    $switch = qq{"-$1"};
 	} else {
 	    $switch = '';
 	}