|
 |
7f497f |
diff -up PathTools/Cwd.pm.cve PathTools/Cwd.pm
|
|
|
7f497f |
--- PathTools/Cwd.pm.cve 2016-03-01 13:33:02.000000000 +0100
|
|
|
7f497f |
+++ PathTools/Cwd.pm 2016-08-02 13:39:39.814316060 +0200
|
|
|
7f497f |
@@ -40,7 +40,10 @@ if ($^O eq 'os2') {
|
|
|
7f497f |
my $use_vms_feature;
|
|
|
7f497f |
BEGIN {
|
|
|
7f497f |
if ($^O eq 'VMS') {
|
|
|
7f497f |
- if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
|
|
|
7f497f |
+ if (eval { local $SIG{__DIE__};
|
|
|
7f497f |
+ local @INC = @INC;
|
|
|
7f497f |
+ pop @INC if $INC[-1] eq '.';
|
|
|
7f497f |
+ require VMS::Feature; }) {
|
|
|
7f497f |
$use_vms_feature = 1;
|
|
|
7f497f |
}
|
|
|
7f497f |
}
|
|
|
7f497f |
diff -up PathTools/lib/File/Spec/Cygwin.pm.cve PathTools/lib/File/Spec/Cygwin.pm
|
|
|
7f497f |
--- PathTools/lib/File/Spec/Cygwin.pm.cve 2016-03-01 13:33:02.000000000 +0100
|
|
|
7f497f |
+++ PathTools/lib/File/Spec/Cygwin.pm 2016-08-02 13:39:39.814316060 +0200
|
|
|
7f497f |
@@ -137,7 +137,11 @@ sub case_tolerant {
|
|
|
7f497f |
if ($mntopts and ($mntopts =~ /,managed/)) {
|
|
|
7f497f |
return 0;
|
|
|
7f497f |
}
|
|
|
7f497f |
- eval { require Win32API::File; } or return 1;
|
|
|
7f497f |
+ eval {
|
|
|
7f497f |
+ local @INC = @INC;
|
|
|
7f497f |
+ pop @INC if $INC[-1] eq '.';
|
|
|
7f497f |
+ require Win32API::File;
|
|
|
7f497f |
+ } or return 1;
|
|
|
7f497f |
my $osFsType = "\0"x256;
|
|
|
7f497f |
my $osVolName = "\0"x256;
|
|
|
7f497f |
my $ouFsFlags = 0;
|
|
|
7f497f |
diff -up PathTools/lib/File/Spec/VMS.pm.cve PathTools/lib/File/Spec/VMS.pm
|
|
|
7f497f |
--- PathTools/lib/File/Spec/VMS.pm.cve 2016-03-01 13:33:02.000000000 +0100
|
|
|
7f497f |
+++ PathTools/lib/File/Spec/VMS.pm 2016-08-02 13:39:39.814316060 +0200
|
|
|
7f497f |
@@ -39,7 +39,10 @@ via the C<DECC$FILENAME_UNIX_REPORT> CRT
|
|
|
7f497f |
|
|
|
7f497f |
my $use_feature;
|
|
|
7f497f |
BEGIN {
|
|
|
7f497f |
- if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
|
|
|
7f497f |
+ if (eval { local $SIG{__DIE__};
|
|
|
7f497f |
+ local @INC = @INC;
|
|
|
7f497f |
+ pop @INC if $INC[-1] eq '.';
|
|
|
7f497f |
+ require VMS::Feature; }) {
|
|
|
7f497f |
$use_feature = 1;
|
|
|
7f497f |
}
|
|
|
7f497f |
}
|
|
|
7f497f |
diff -up PathTools/lib/File/Spec/Win32.pm.cve PathTools/lib/File/Spec/Win32.pm
|
|
|
7f497f |
--- PathTools/lib/File/Spec/Win32.pm.cve 2016-03-01 13:33:02.000000000 +0100
|
|
|
7f497f |
+++ PathTools/lib/File/Spec/Win32.pm 2016-08-02 13:39:39.814316060 +0200
|
|
|
7f497f |
@@ -90,7 +90,11 @@ Default: 1
|
|
|
7f497f |
=cut
|
|
|
7f497f |
|
|
|
7f497f |
sub case_tolerant {
|
|
|
7f497f |
- eval { require Win32API::File; } or return 1;
|
|
|
7f497f |
+ eval {
|
|
|
7f497f |
+ local @INC = @INC;
|
|
|
7f497f |
+ pop @INC if $INC[-1] eq '.';
|
|
|
7f497f |
+ require Win32API::File;
|
|
|
7f497f |
+ } or return 1;
|
|
|
7f497f |
my $drive = shift || "C:";
|
|
|
7f497f |
my $osFsType = "\0"x256;
|
|
|
7f497f |
my $osVolName = "\0"x256;
|