From: Vincent Pit <vince@profvince.com>
Date: Thu, 14 Jun 2012 22:18:11 +0000 (+0200)
Subject: Skip ebuild versioned '9999' when looking for gentooisms
X-Git-Tag: v0.12~5
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=commitdiff_plain;h=f219fb5c8cccca8954f6ada1fc34ea6baf67c9ab;hp=761b2973c70ba26f3442b701a2d4e8d28c083f11

Skip ebuild versioned '9999' when looking for gentooisms

Version 9999 means a version automagically fetched from the latest revision
in the source control repository.
---

diff --git a/samples/gengentooisms b/samples/gengentooisms
index fcd656a..aad8df1 100755
--- a/samples/gengentooisms
+++ b/samples/gengentooisms
@@ -85,8 +85,9 @@ 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>);