diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-01-22 16:14:26 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-23 03:41:26 +0000 |
| commit | 19b5e0e6db538b0b45f98873e72dea5d7d94fde5 (patch) | |
| tree | 1533f7de72dce0d114065f30d15f86583a047c66 /vms | |
| parent | 07b6858f7b917ea2a8165266f68294a3b41bf5ce (diff) | |
| download | perl-19b5e0e6db538b0b45f98873e72dea5d7d94fde5.tar.gz | |
test.com shebang handling (was Re: VMS@14369)
Message-Id: <a05101000b873de9cf801@[172.16.52.1]>
p4raw-id: //depot/perl@14380
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/test.com | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/vms/test.com b/vms/test.com index 8c4d8405d8..bd96543d5e 100644 --- a/vms/test.com +++ b/vms/test.com @@ -102,10 +102,8 @@ while ($test = shift) { 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 = ''; } |