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

On Tue, Jan 22, 2002 at 10:14:26PM -0600, Craig A. Berry wrote:
> 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

Thanks, applied.

> --- 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

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

• 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