From: Max Maischein <corion@corion.net>
Date: Fri, 24 Aug 2007 22:04:56 +0000 (+0200)
Subject: Re: [patch] First batch of whitespace patches (Test::Harness)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cb1540ad85637e5abb7372876a8c85c855a7427;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 }