Skip ebuild versioned '9999' when looking for gentooisms

[perl/modules/CPANPLUS-Dist-Gentoo.git] / samples / gengentooisms

diff --git a/samples/gengentooisms b/samples/gengentooisms
index 34d5869fea17a58492a11f0ba268c76641fd3465..aad8df14cbda3811d58f071e0cc752fe27424b33 100755 (executable)
--- a/samples/gengentooisms
+++ b/samples/gengentooisms
@@ -5,14 +5,14 @@ use warnings;
 
 use Fatal;
 use File::Spec;
-use File::Copy qw/copy/;
-use List::Util qw/max reduce/;
+use File::Copy qw<copy>;
+use List::Util qw<max reduce>;
 use Storable ();
 use Term::ANSIColor;
 
 use CPAN::DistnameInfo 0.11;
 
-use Capture::Tiny qw/capture/;
+use Capture::Tiny qw<capture>;
 use LWP::UserAgent;
 use Parse::CPAN::Packages::Fast;
 
@@ -74,7 +74,7 @@ my (@not_on_cpan, @unfindable, @missing, %name_mismatch, %version);
 sub parse_portage_tree {
  my $pcp = Parse::CPAN::Packages::Fast->new(PACKAGES);
 
- for my $category (qw/perl-core dev-perl/) {
+ for my $category (qw<perl-core dev-perl>) {
   p(0, "Browsing the $category category.\n");
 
   my $cat_dir = File::Spec->catdir(PORTAGE, $category);
@@ -85,10 +85,11 @@ sub parse_portage_tree {
    my $pkg_name = (File::Spec->splitdir($pkg_dir))[-1];
 
    my $last = reduce { $a->[1] > $b->[1] ? $a : $b }
-               map [ $_, CPANPLUS::Dist::Gentoo::Atom->new_from_ebuild($_) ],
-                glob File::Spec->catfile($pkg_dir, "$pkg_name-*");
+               grep $_->[1] != 9999,
+                map [ $_, CPANPLUS::Dist::Gentoo::Atom->new_from_ebuild($_) ],
+                 glob File::Spec->catfile($pkg_dir, "$pkg_name-*");
    my ($ebuild, $atom) = @$last;
-   p(1, "%s/%s-%s\n", map $atom->$_, qw/category name version/);
+   p(1, "%s/%s-%s\n", map $atom->$_, qw<category name version>);
 
    if (exists $is_on_cpan{$pkg_name} and not $is_on_cpan{$pkg_name}) {
     p(2, colored("$pkg_name is not a CPAN distribution (forced)", 'bright_red')