t/test.pl fix for VMS
authorCraig A. Berry <craigberry@mac.com>
Mon, 11 Feb 2002 17:13:47 +0000 (11:13 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 12 Feb 2002 02:15:05 +0000 (02:15 +0000)
Message-Id: <5.1.0.14.2.20020211170332.01b94e88@exchi01>

p4raw-id: //depot/perl@14651

t/test.pl

index be052b5..351963a 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -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 .= ' ' . $_;
     }
 }