"$name-*.ebuild",
) or next;
- my @atoms = map CPANPLUS::Dist::Gentoo::Atom->new(
- defined $version ? (
- ebuild => $_,
- range => '>=',
- ) : (
- category => $category,
- name => $name,
- ),
- ), @ebuilds;
-
- my $atom = reduce { $a < $b ? $b : $a } @atoms; # handles overloading
- next if defined $version and $atom < $version;
-
- return $atom;
+ my $last = reduce { $a < $b ? $b : $a } # handles overloading
+ map CPANPLUS::Dist::Gentoo::Atom->new_from_ebuild($_),
+ @ebuilds;
+ next if defined $version and $last < $version;
+
+ return CPANPLUS::Dist::Gentoo::Atom->new(
+ category => $last->category,
+ name => $last->name,
+ (defined $version ? (version => $version, range => '>=') : ()),
+ ebuild => $last->ebuild,
+ );
}
}