Fwd: CPAN Upload: Y/YV/YVES/ExtUtils-Install-1.45.tar.gz

Message-ID: <9b18b3110802270506j6194cb4idefa42765d634c79@mail.gmail.com>

Upgrade to ExtUtils-Install-1.45 to fix [cpan #32813]

p4raw-id: //depot/perl@33386

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index d60bc6c..84a616c 100644 (file)
--- a/lib/ExtUtils/Install.pm
+++ b/lib/ExtUtils/Install.pm
@@ -3,7 +3,7 @@ use 5.00503;
 use strict;
 
 use vars qw(@ISA @EXPORT $VERSION $MUST_REBOOT %Config);
-$VERSION = '1.44';
+$VERSION = '1.45';
 $VERSION = eval $VERSION;
 
 use AutoSplit;
@@ -436,7 +436,9 @@ sub _can_write_dir {
     my $path='';
     my @make;
     while (@dirs) {
-        $dir = File::Spec->catdir($vol,@dirs);
+        $dir = File::Spec->catdir(@dirs);
+        $dir = File::Spec->catpath($vol,$dir,'') 
+                if defined $vol and length $vol;
         next if ( $dir eq $path );
         if ( ! -e $dir ) {
             unshift @make,$dir;