X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo%2FVersion.pm;h=752fe97f7349c5c4eff71ed48d8e97cfc2772660;hb=d77142c8216a27e216565391d32d2cf3f321f63c;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..752fe97 100644 --- a/lib/CPANPLUS/Dist/Gentoo/Version.pm +++ b/lib/CPANPLUS/Dist/Gentoo/Version.pm @@ -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; }