r6100 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Jul 30 12:51:41 2007
New Revision: 6100

URL: http://svn.debian.org/wsvn/?sc=1&rev=6100
Log:
Support "non-standard" cpan directory layout in debian/watch

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6100&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Mon Jul 30 12:51:41 2007
@@ -309,7 +309,7 @@
 
     foreach(@cpan)
     {
-        if( s{^(?:http|ftp)://.*cpan.*/modules/by-module/}{} )
+        if( s{^(?:http|ftp)://.*cpan.*/modules/by-module/}{}i )
         {
             # lookup by module
 
@@ -330,7 +330,10 @@
                 push @vers, $1 if $_ =~ $filter;
             }
         }
-        elsif( s{^(?:http|ftp)://.*cpan.*/authors/by-id/}{} )
+        elsif( s{^(?:http|ftp)://.*cpan.*/authors/by-id/}{}i
+                or
+            s{^(?:http|ftp)://.*cpan.*/(?:by-)?authors/id/}{}i
+        )
         {
             # lookup by author