diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm b/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm index 1b77e6adbd1..10b14c4b9a6 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm @@ -4,8 +4,8 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.56'; -$VERSION =~ tr/_//; +$VERSION = '3.63_01'; +$VERSION =~ tr/_//d; @ISA = qw(File::Spec::Unix); @@ -137,7 +137,11 @@ sub case_tolerant { if ($mntopts and ($mntopts =~ /,managed/)) { return 0; } - eval { require Win32API::File; } or return 1; + eval { + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; + require Win32API::File; + } or return 1; my $osFsType = "\0"x256; my $osVolName = "\0"x256; my $ouFsFlags = 0; |