$stat->distribution($name . '-' . $version);
- $stat->ebuild_version(CPANPLUS::Dist::Gentoo::Maps::version_c2g($version));
+ $stat->ebuild_version(CPANPLUS::Dist::Gentoo::Maps::version_c2g($name, $version));
$stat->ebuild_name(CPANPLUS::Dist::Gentoo::Maps::name_c2g($name));
}
$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;
}
sub _cpan2portage {
- my ($self, $name, $version) = @_;
+ my ($self, $dist_name, $dist_version) = @_;
- $name = CPANPLUS::Dist::Gentoo::Maps::name_c2g($name);
- $version = CPANPLUS::Dist::Gentoo::Maps::version_c2g($version);
+ my $name = CPANPLUS::Dist::Gentoo::Maps::name_c2g($dist_name);
+ my $version = CPANPLUS::Dist::Gentoo::Maps::version_c2g($dist_name, $dist_version);
my @portdirs = ($main_portdir, @{$self->status->portdir_overlay});