Skip Menu |

This queue is for tickets about the Test-Harness CPAN distribution.

Report information
The Basics
Id: 14997
Status: resolved
Priority: 0/
Queue: Test-Harness

Owner: Nobody in particular
Requestors: steve [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Subject: [PATCH] Change T::H::Straps from using Win32::GetShortPathName
Download (untitled) / with headers
text/plain 639b
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/ --- /home/steve/perl-encode/lib/Test/Harness/ 2005-09-28 18:28:56.000000000 -0500 +++ /home/steve/p4-bleadperl/perl/lib/Test/Harness/ 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; }
Added in 2.57_02

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to