r5988 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Jul 26 14:09:41 2007
New Revision: 5988

URL: http://svn.debian.org/wsvn/?sc=1&rev=5988
Log:
Try to handle the suurious -v in package names; Attempt different approach when Net:: is missing in file name, but present in package name

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=5988&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Thu Jul 26 14:09:41 2007
@@ -225,7 +225,7 @@
     foreach(@cpan)
     {
         s{^(?:http|ftp)://.+/\s*}{};
-        s{-?\(.+$}{};
+        s{(?:-v?)?\(.+$}{};
         s/-/::/g;
 
         debugmsg( sprintf( "    cpan search %s\n", $_ ) );
@@ -248,9 +248,11 @@
             $tmp =~ s/^lib//; $tmp =~ s/-perl$//;
             my @pkg_parts = split(/-/, $tmp);
 
+            $warch_mod = 'Net'.$watch_mod if @pkg_parts[0] eq 'net';
+
             my @mod_parts;
             my $watch_mod = $_;
-            while( @pkg_parts and $watch_mod =~ s/^($pkg_parts[0])//xi )
+            while( @pkg_parts and $watch_mod =~ s/^($pkg_parts[0])-?//xi )
             {
                 push @mod_parts, $1;
                 shift @pkg_parts;