diff options
Diffstat (limited to 'vms/test.com')
| -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 = ''; } |