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 (file)
--- 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 );
 }