From: Yves Orton <demerphq@gmail.com>
Date: Wed, 27 Feb 2008 14:06:29 +0000 (+0100)
Subject: Fwd: CPAN Upload: Y/YV/YVES/ExtUtils-Install-1.45.tar.gz
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54683d5edb85bfe9b7a4df00baf9416e1a7ecf2f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;