This was caused by $obj->meth->{key} not autovivifying when meth returns
undef.
}
$stat->requires(\@requires);
}
$stat->requires(\@requires);
+ my $meta = $self->meta;
$stat->min_perl(CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g(
$stat->min_perl(CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g(
- eval { $self->meta->{requires}->{perl} }
+ $meta->{requires}->{perl}
my $meta_file = File::Spec->catdir($extract_dir, $name);
next unless -e $meta_file;
my $meta_file = File::Spec->catdir($extract_dir, $name);
next unless -e $meta_file;
my $meta = eval { Parse::CPAN::Meta::LoadFile($meta_file) };
if (defined $meta) {
$stat->meta($meta);
my $meta = eval { Parse::CPAN::Meta::LoadFile($meta_file) };
if (defined $meta) {
$stat->meta($meta);
return \@licenses if @licenses;
}
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;
if (defined $license) {
my @licenses = CPANPLUS::Dist::Gentoo::Maps::license_c2g($license);
return \@licenses if @licenses;