[patch] Adds support for alpha, beta, rc & pre module versions

g-cpan.pl.patch (text/plain), 681 bytes, created by Jason Rhinelander on 2004-05-09 17:57:24 UTC

--- /usr/bin/g-cpan.pl	2004-04-15 10:07:55.000000000 -0700
+++ g-cpan.pl	2004-05-09 17:54:27.316993462 -0700
@@ -169,6 +169,16 @@
     # remove underscores
     $filename =~ tr/_/-/;
 
+    # Attempt to map alpha/beta/rc/pre suffixes into portage-compatible versions
+    my %map = (
+        a => "alpha", alpha => "alpha",
+        b => "beta", beta => "beta",
+        rc => "rc",
+        pre => "pre"
+    );
+    my $suffix = join '|', map quotemeta, keys %map;
+    $filename =~ s/(?<=\d)($suffix)(\d+(?:\.\d+)*)/_$map{$1}$2/i;
+
     my $ebuild = File::Spec->catdir( $fulldir,  "$filename.ebuild" );
     my $digest = File::Spec->catdir( $filesdir, "digest-$filename" );