summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/Packlist.pm
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2007-07-20 22:46:47 +0000
committerYves Orton <demerphq@gmail.com>2007-07-20 22:46:47 +0000
commit060fb22c412095419d8820020a11c811dd6a7dfd (patch)
tree9fad8df7b19d11f84b4801b51c5cb2f26421b25b /lib/ExtUtils/Packlist.pm
parent68e109b8c97f290e6ca1dabbd149c3201e74c804 (diff)
downloadperl-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.pm10
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);
}