diff options
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.pm | 15 |
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 |