diff options
| -rw-r--r-- | lib/ExtUtils/Install.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm index d60bc6cb81..84a616ca61 100644 --- 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; |