diff options
Diffstat (limited to 'contrib/perl5/lib/ExtUtils/Installed.pm')
-rw-r--r-- | contrib/perl5/lib/ExtUtils/Installed.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/contrib/perl5/lib/ExtUtils/Installed.pm b/contrib/perl5/lib/ExtUtils/Installed.pm index dda594e..6961c6f 100644 --- a/contrib/perl5/lib/ExtUtils/Installed.pm +++ b/contrib/perl5/lib/ExtUtils/Installed.pm @@ -1,4 +1,6 @@ package ExtUtils::Installed; + +use 5.005_64; use strict; use Carp qw(); use ExtUtils::Packlist; @@ -6,8 +8,7 @@ use ExtUtils::MakeMaker; use Config; use File::Find; use File::Basename; -use vars qw($VERSION); -$VERSION = '0.02'; +our $VERSION = '0.02'; sub _is_type($$$) { @@ -56,7 +57,7 @@ my $self = {}; # Read the core packlist $self->{Perl}{packlist} = ExtUtils::Packlist->new("$Config{installarchlib}/.packlist"); -$self->{Perl}{version} = $]; +$self->{Perl}{version} = $Config{version}; # Read the module packlists my $sub = sub @@ -66,8 +67,8 @@ my $sub = sub # Hack of the leading bits of the paths & convert to a module name my $module = $File::Find::name; - $module =~ s!$Config{archlib}/auto/(.*)/.packlist!$1!; - $module =~ s!$Config{sitearch}/auto/(.*)/.packlist!$1!; + $module =~ s!$Config{archlib}/auto/(.*)/.packlist!$1!s; + $module =~ s!$Config{sitearch}/auto/(.*)/.packlist!$1!s; my $modfile = "$module.pm"; $module =~ s!/!::!g; |