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