diff options
author | Yves Orton <demerphq@gmail.com> | 2007-07-20 22:46:47 +0000 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2007-07-20 22:46:47 +0000 |
commit | 060fb22c412095419d8820020a11c811dd6a7dfd (patch) | |
tree | 9fad8df7b19d11f84b4801b51c5cb2f26421b25b /lib/ExtUtils/Packlist.pm | |
parent | 68e109b8c97f290e6ca1dabbd149c3201e74c804 (diff) | |
download | perl-060fb22c412095419d8820020a11c811dd6a7dfd.tar.gz |
Update ExtUtils::Install, EU::Installed and EU::Packlist to the latest CPAN version 1.43
p4raw-id: //depot/perl@31645
Diffstat (limited to 'lib/ExtUtils/Packlist.pm')
-rw-r--r-- | lib/ExtUtils/Packlist.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/ExtUtils/Packlist.pm b/lib/ExtUtils/Packlist.pm index 5965bbcfb6..04f267a0a3 100644 --- a/lib/ExtUtils/Packlist.pm +++ b/lib/ExtUtils/Packlist.pm @@ -5,7 +5,7 @@ use strict; use Carp qw(); use Config; use vars qw($VERSION $Relocations); -$VERSION = '1.41'; +$VERSION = '1.43'; $VERSION = eval $VERSION; # Used for generating filehandle globs. IO::File might not be available! @@ -131,17 +131,17 @@ while (defined($line = <$fh>)) $data = { map { split('=', $_) } split(' ', $2)}; if ($Config{userelocatableinc} && $data->{relocate_as}) - { + { require File::Spec; require Cwd; my ($vol, $dir) = File::Spec->splitpath($packfile); my $newpath = File::Spec->catpath($vol, $dir, $data->{relocate_as}); $key = Cwd::realpath($newpath); - } } + } $key =~ s!/\./!/!g; # Some .packlists have spurious '/./' bits in the paths - $self->{data}->{$key} = $data; - } + $self->{data}->{$key} = $data; + } close($fh); } |