}
$stat->requires(\@requires);
+ my $meta = $self->meta;
$stat->min_perl(CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g(
- eval { $self->meta->{requires}->{perl} }
+ $meta->{requires}->{perl}
));
return $OK->();
my $meta_file = File::Spec->catdir($extract_dir, $name);
next unless -e $meta_file;
+ local $@;
my $meta = eval { Parse::CPAN::Meta::LoadFile($meta_file) };
if (defined $meta) {
$stat->meta($meta);
return \@licenses if @licenses;
}
- my $license = $self->meta->{license};
+ my $meta = $self->meta;
+ my $license = $meta->{license};
if (defined $license) {
my @licenses = CPANPLUS::Dist::Gentoo::Maps::license_c2g($license);
return \@licenses if @licenses;
push @requires, $atom;
}
- my $min_perl = $stat->min_perl;
my $perl = CPANPLUS::Dist::Gentoo::Atom->new(
category => 'dev-lang',
name => 'perl',
- (defined $min_perl ? (version => $min_perl, range => '>=') : ()),
+ version => $stat->min_perl,
);
@requires = CPANPLUS::Dist::Gentoo::Atom->fold($perl, @requires);
return CPANPLUS::Dist::Gentoo::Atom->new(
category => $last->category,
name => $last->name,
- (defined $version ? (version => $version, range => '>=') : ()),
+ version => $version,
ebuild => $last->ebuild,
);
}