r20264 - /scripts/qa/CPANTSdump

[tincho at users.alioth.debian.org]

Author: tincho
Date: Wed May 21 23:38:42 2008
New Revision: 20264

URL: http://svn.debian.org/wsvn/?sc=1&rev=20264
Log:
remove epochs

Modified:
    scripts/qa/CPANTSdump

Modified: scripts/qa/CPANTSdump
URL: http://svn.debian.org/wsvn/scripts/qa/CPANTSdump?rev=20264&op=diff
==============================================================================
--- scripts/qa/CPANTSdump (original)
+++ scripts/qa/CPANTSdump Wed May 21 23:38:42 2008
@@ -46,8 +46,9 @@
     my $version = $data->{archive}{$pkg}{most_recent};
     if($version) {
         # Try to remove Debian stuff -- Not reliable!
-        $version =~ s/-[^-]+$//;
-        $version =~ s/\+\w+$//;
+        $version =~ s/-[^-]+$//; # Debian revision
+        $version =~ s/^.*?://; # Epoch
+        $version =~ s/\+\w+$//; # Common suffixes (dfsg, svn, etc)
     } else {
         $version = "not-uploaded";
     }