From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 30 Dec 2003 21:10:22 +0000 (+0000)
Subject: A patch for Test::Harness on VMS by Craig Berry
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf9c4ad2fa12f7ea847482e4bd07e13fd3691eed;p=p5sagit%2Fp5-mst-13.2.git

A patch for Test::Harness on VMS by Craig Berry
(see RT CPAN bug #4745)

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

diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index 6d332ba..d536274 100644
--- a/lib/Test/Harness/Straps.pm
+++ b/lib/Test/Harness/Straps.pm
@@ -374,7 +374,7 @@ sub _switches {
 
     # Quote all switches to prevent shell interference, or VMS downcasing
     for ( @derived_switches ) {
-	$_ = qq["$_"] if /\s/ && !/^".*"$/;
+	$_ = qq["$_"] if /\S/ && !/^".*"$/;
     }
     return join( " ", @existing_switches, @derived_switches );
 }