Change 31764 by [EMAIL PROTECTED] on 2007/08/30 13:19:44
Subject: Re: [patch] First batch of whitespace patches (Test::Harness)
From: Max Maischein <[EMAIL PROTECTED]>
Date: Fri, 24 Aug 2007 22:04:56 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Test/Harness/Straps.pm#33 edit
Differences ...
==== //depot/perl/lib/Test/Harness/Straps.pm#33 (text) ====
Index: perl/lib/Test/Harness/Straps.pm
--- perl/lib/Test/Harness/Straps.pm#32~30373~ 2007-02-20 17:55:37.000000000
-0800
+++ perl/lib/Test/Harness/Straps.pm 2007-08-30 06:19:44.000000000 -0700
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '0.26';
+$VERSION = '0.26_01';
use Config;
use Test::Harness::Assert;
@@ -355,7 +355,8 @@
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;
}
End of Patch.
