summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm
index 3db0f45260..ab2e0b9b68 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm
@@ -1,7 +1,7 @@
package ExtUtils::MM_Win32;
use strict;
-
+use warnings;
=head1 NAME
@@ -27,7 +27,7 @@ use ExtUtils::MakeMaker qw(neatvalue _sprintf562);
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '7.44';
+our $VERSION = '7.62';
$VERSION =~ tr/_//d;
$ENV{EMXSHELL} = 'sh'; # to run `commands`
@@ -395,8 +395,15 @@ sub perl_script {
}
sub can_dep_space {
- my $self = shift;
- 1; # with Win32::GetShortPathName
+ my ($self) = @_;
+ return 0 unless $self->can_load_xs;
+ require Win32;
+ require File::Spec;
+ my ($vol, $dir) = File::Spec->splitpath($INC{'ExtUtils/MakeMaker.pm'});
+ # can_dep_space via GetShortPathName, if short paths are supported
+ my $canary = Win32::GetShortPathName(File::Spec->catpath($vol, $dir, 'MakeMaker.pm'));
+ (undef, undef, my $file) = File::Spec->splitpath($canary);
+ return (length $file > 11) ? 0 : 1;
}
=item quote_dep