From: Gisle Aas <gisle@aas.no>
Date: Mon, 10 Oct 2005 06:20:23 +0000 (-0700)
Subject: Re: Win32::GetShortPathName() does not always return a short name [DOC PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d777f87b25bb5c6e143d4115a86ecdbccd957eae;p=p5sagit%2Fp5-mst-13.2.git

Re: Win32::GetShortPathName() does not always return a short name [DOC PATCH]

Change to remove a call to Win32::GetShortPathName() from
Test::Harness::Straps.

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

diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index d561ea4..dc58a44 100644
--- a/lib/Test/Harness/Straps.pm
+++ b/lib/Test/Harness/Straps.pm
@@ -358,7 +358,7 @@ sub _command {
     my $self = shift;
 
     return $ENV{HARNESS_PERL}           if defined $ENV{HARNESS_PERL};
-    return Win32::GetShortPathName($^X) if $self->{_is_win32};
+    return qq("$^X")    if $self->{_is_win32} && $^X =~ /[^\w\.\/\\]/;
     return $^X;
 }