diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-05-12 15:32:58 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-13 00:46:11 +0000 |
| commit | 5dc83c4054cb6624685a80f58caabe5e173a543f (patch) | |
| tree | 6945c39fd20e27dcafa1c635e3edb43f36648b38 /t/TEST | |
| parent | 7589e17d81493a7065648e700081a252e10a5c33 (diff) | |
| download | perl-5dc83c4054cb6624685a80f58caabe5e173a543f.tar.gz | |
#!/usr/bin/perl-current misparse
Message-ID: <20020512233258.GK696@blackrider>
p4raw-id: //depot/perl@16570
Diffstat (limited to 't/TEST')
| -rwxr-xr-x | t/TEST | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 { |