From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 11 Feb 2002 17:13:47 +0000 (-0600)
Subject: t/test.pl fix for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea9ac5adc156dc923a1815b0059ca759e5ced3f0;p=p5sagit%2Fp5-mst-13.2.git

t/test.pl fix for VMS
Message-Id: <5.1.0.14.2.20020211170332.01b94e88@exchi01>

p4raw-id: //depot/perl@14651
---

diff --git a/t/test.pl b/t/test.pl
index be052b5..351963a 100644
--- 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 .= ' ' . $_;
     }
 }