r5990 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Jul 26 15:21:10 2007
New Revision: 5990

URL: http://svn.debian.org/wsvn/?sc=1&rev=5990
Log:
Add an attempt with capitalized first letters. I guess this only works for MIME::Tools (MIME-tools)

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=5990&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Thu Jul 26 15:21:10 2007
@@ -235,6 +235,20 @@
         {
             push @vers, $cpan_mod->cpan_version;
         }
+
+        do {
+            # Try with capital first letters
+            s/^(.)/\U$1/;
+            s/::(.)/::\U$1/g;
+        
+            debugmsg( sprintf( "    cpan search %s\n", $_ ) );
+            my $cpan_mod = $cpan->expand('Module', $_);
+
+            if( $cpan_mod )
+            {
+                push @vers, $cpan_mod->cpan_version;
+            }
+        };
 
         do {
             # Try to gyess real module name given the distribution file