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

People
Owner: Nobody in particular
Requestors: steve [...] silug.org
Cc:
AdminCc:

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/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; }
Added in 2.57_02


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

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.