diff options
| author | Yves Orton <demerphq@gmail.com> | 2008-02-27 15:06:29 +0100 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-02-27 13:43:27 +0000 |
| commit | 54683d5edb85bfe9b7a4df00baf9416e1a7ecf2f (patch) | |
| tree | 03e229ad3df70b41e27a088340099e42fa3c659f /lib/ExtUtils/Install.pm | |
| parent | 5fa45a31a1cc49254291a0192eac8a082942f306 (diff) | |
| download | perl-54683d5edb85bfe9b7a4df00baf9416e1a7ecf2f.tar.gz | |
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
Diffstat (limited to 'lib/ExtUtils/Install.pm')
| -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; |