| Subject: | [PATCH] Change T::H::Straps from using Win32::GetShortPathName |
A patch was sent to p5p by Gisle Aas to change T::H::Straps from using Win32::GetShortPathName(). The patch is provided below.
~/p4-bleadperl/perl/lib/Test/Harness/Straps.pm
--- /home/steve/perl-encode/lib/Test/Harness/Straps.pm 2005-09-28 18:28:56.000000000 -0500
+++ /home/steve/p4-bleadperl/perl/lib/Test/Harness/Straps.pm 2005-10-10 08:38:00.000000000 -0500
@@ -358,7 +358,7 @@
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;
}