- my $atom = reduce { $a < $b ? $b : $a } # handles overloading
- map CPANPLUS::Dist::Gentoo::Atom->new(
- ebuild => $_,
- minimum => 1,
- ), @ebuilds;
- next if defined $ver and $atom < $ver;
+ 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;