diff options
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/vms/test.com b/vms/test.com index 156b2dca81..2afe93cd60 100644 --- a/vms/test.com +++ b/vms/test.com @@ -137,6 +137,8 @@ while ($test = shift) { close(script); if (/#!..perl(.*)/) { $switch = $1; + # Add "" to protect uppercase switches on command line + $switch =~ s/-([A-Z]\S*)/"-$1"/g; } else { $switch = ''; } |