r5931 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Jul 20 14:33:09 2007
New Revision: 5931

URL: http://svn.debian.org/wsvn/?sc=1&rev=5931
Log:
Try without ^Net:: if module not found on cpan (Net::SMTP::Server is SMTP-Server)

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=5931&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Fri Jul 20 14:33:09 2007
@@ -189,7 +189,15 @@
         debugmsg( sprintf( "    cpan search %s\n", $_ ) );
         my $cpan_mod = $cpan->expand('Module', $_);
 
-        push @vers, $cpan_mod->cpan_version if $cpan_mod;
+        if( $cpan_mod )
+        {
+            push @vers, $cpan_mod->cpan_version;
+        }
+        elsif( s/^Net::// )
+        {
+            $cpan_mod = $cpan->expand('Module', $_);
+            push @vers, $cpan_mod->cpan_version if $cpan_mod;
+        }
     }
 
     @vers = sort { cmp_ver($a,$b) } @vers;
@@ -412,7 +420,7 @@
                 )."</td>\n"
                 : "<td>&nbsp</td>\n"
             );
-            print "<tr>\n";
+            print "</tr>\n";
 
             $total++;
         }