diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-02-11 11:13:47 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-12 02:15:05 +0000 |
| commit | ea9ac5adc156dc923a1815b0059ca759e5ced3f0 (patch) | |
| tree | aa5d8c7b02c8603dbac0fb8ff53e2b7a18f16edf /t/test.pl | |
| parent | 6c8584ec78a6d88676a1e386f72c4c02c94e9a95 (diff) | |
| download | perl-ea9ac5adc156dc923a1815b0059ca759e5ced3f0.tar.gz | |
t/test.pl fix for VMS
Message-Id: <5.1.0.14.2.20020211170332.01b94e88@exchi01>
p4raw-id: //depot/perl@14651
Diffstat (limited to 't/test.pl')
| -rw-r--r-- | t/test.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -272,7 +272,7 @@ sub _quote_args { foreach (@$args) { # In VMS protect with doublequotes because otherwise # DCL will lowercase -- unless already doublequoted. - $_ = q(").$_.q(") if $is_vms && !/^\"/; + $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) > 0; $$runperl .= ' ' . $_; } } |