From: Michael G. Schwern <schwern@pobox.com>
Date: Sun, 12 May 2002 19:32:58 +0000 (-0400)
Subject: #!/usr/bin/perl-current misparse
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5dc83c4054cb6624685a80f58caabe5e173a543f;p=p5sagit%2Fp5-mst-13.2.git

#!/usr/bin/perl-current misparse
Message-ID: <20020512233258.GK696@blackrider>

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

diff --git a/t/TEST b/t/TEST
index 47560cd..9ac287a 100755
--- a/t/TEST
+++ b/t/TEST
@@ -206,7 +206,7 @@ EOT
  	open(SCRIPT,"<$test") or die "Can't run $test.\n";
  	$_ = <SCRIPT>;
  	close(SCRIPT) unless ($type eq 'deparse');
- 	if (/#!.*\bperl.*-\w*([tT])/) {
+ 	if (/#!.*\bperl.*\s-\w*([tT])/) {
  	    $switch = qq{"-$1"};
  	}
  	else {