Re: [patch] First batch of whitespace patches (Test::Harness)

Message-ID: <46CF39E8.8020707@corion.net>

p4raw-id: //depot/perl@31764

diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index bab7266..3ee529c 100644 (file)
--- a/lib/Test/Harness/Straps.pm
+++ b/lib/Test/Harness/Straps.pm
@@ -3,7 +3,7 @@ package Test::Harness::Straps;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.26';
+$VERSION = '0.26_01';
 
 use Config;
 use Test::Harness::Assert;
@@ -355,7 +355,8 @@ sub _command {
     my $self = shift;
 
     return $ENV{HARNESS_PERL}   if defined $ENV{HARNESS_PERL};
-    return qq["$^X"]            if $self->{_is_win32} && ($^X =~ /[^\w\.\/\\]/);
+    #return qq["$^X"]            if $self->{_is_win32} && ($^X =~ /[^\w\.\/\\]/);
+    return qq["$^X"]            if $^X =~ /\s/ and $^X !~ /^["']/;
     return $^X;
 }