diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-13 07:54:10 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-05-13 07:54:10 +0000 |
| commit | f4c85a8e163bdec4e3a8708a2a1bf75e69e150ff (patch) | |
| tree | 84c6fe9df0b5a209255e389ef2cbce2937f0bce1 /t | |
| parent | 4a38bdd338de5c24fda26aa62143202f97caeb05 (diff) | |
| parent | 5dc83c4054cb6624685a80f58caabe5e173a543f (diff) | |
| download | perl-f4c85a8e163bdec4e3a8708a2a1bf75e69e150ff.tar.gz | |
Integrate Mainline
p4raw-id: //depot/perlio@16571
Diffstat (limited to 't')
| -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 { |