$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;
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);
}
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});
return CPANPLUS::Dist::Gentoo::Atom->new(
category => $last->category,
name => $last->name,
- (defined $version ? (version => $version, range => '>=') : ()),
+ version => $version,
ebuild => $last->ebuild,
);
}