Michael G. Schwern [Sun, 12 May 2002 19:32:58 +0000 (15:32 -0400)]
Message-ID: <
20020512233258.GK696@blackrider>
p4raw-id: //depot/perl@16570
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 {