diff options
| author | Gisle Aas <gisle@aas.no> | 2005-10-09 23:20:23 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-10-10 13:14:50 +0000 |
| commit | d777f87b25bb5c6e143d4115a86ecdbccd957eae (patch) | |
| tree | 70445f9a3d706e3fb2dc372b97d8f4edc2438192 /lib/Test | |
| parent | 0added8b15cac1ea71069426f604832d35edbd96 (diff) | |
| download | perl-d777f87b25bb5c6e143d4115a86ecdbccd957eae.tar.gz | |
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
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness/Straps.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm index d561ea4586..dc58a44363 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; } |