X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo%2FVersion.pm;h=1586fe2ae05a84e2c4266f19a900e8117ddfe649;hb=39780a6e003df06b2cc73bfbb80b6c2e16b12574;hp=bce74eadd906bac4f472bf34817035d8a1016682;hpb=f7846983c923e0aac6f815d8c494fbd958cb3fbe;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git diff --git a/lib/CPANPLUS/Dist/Gentoo/Version.pm b/lib/CPANPLUS/Dist/Gentoo/Version.pm index bce74ea..1586fe2 100644 --- a/lib/CPANPLUS/Dist/Gentoo/Version.pm +++ b/lib/CPANPLUS/Dist/Gentoo/Version.pm @@ -9,11 +9,11 @@ CPANPLUS::Dist::Gentoo::Version - Gentoo version object. =head1 VERSION -Version 0.10 +Version 0.11 =cut -our $VERSION = '0.10'; +our $VERSION = '0.11'; =head1 DESCRIPTION @@ -33,7 +33,7 @@ my $positive_int_rx = qr/0*[1-9][0-9]*/; my $letter_rx = qr/[a-zA-Z]/; my $dotted_num_rx = qr/$int_rx(?:\.$int_rx)*/o; -my @suffixes = qw(alpha beta pre rc normal p); +my @suffixes = qw; my $suffix_rx = join '|', grep !/^normal$/, @suffixes; $suffix_rx = qr/(?:$suffix_rx)/o; @@ -86,7 +86,7 @@ sub new { my @parts; BEGIN { - @parts = qw/version letter suffixes revision/; + @parts = qw; eval "sub $_ { \$_[0]->{$_} }" for @parts; }