[PATCH] test.com shebang handling (was Re: VMS@14369)

At 4:48 PM -0600 1/21/02, Craig A. Berry wrote:
>Failed 15/528 tests, 97.16% okay.

The patch below (using code lifted straight from t/TEST) fixes the
following failures:

>[-.lib.pod.t]inputobjects...............FAILED on test 0
>[-.lib.test.harness.t]00compile.........FAILED on test 0
>[-.lib.test.harness.t]assert............FAILED on test 0
>[-.lib.test.harness.t]strap.............FAILED on test 0

--- vms/test.com;-0	Thu Jan  3 10:50:00 2002
+++ vms/test.com	Tue Jan 22 19:02:13 2002
@@ -102,10 +102,8 @@
 	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 = '';
 	}
[end of patch]
-- 
____________________________________________
Craig A. Berry                  
mailto:craigberry@mac.com

"Literary critics usually know what they're
talking about. Even if they're wrong."
	-- Perl creator Larry Wall

• VMS@14369 by Craig A. Berry
• [PATCH] test.com shebang handling (was Re: VMS@14369) by Craig A. Berry
• Re: [PATCH] test.com shebang handling (was Re: VMS@14369) by Jarkko Hietaniemi