r5933 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Jul 20 14:36:55 2007
New Revision: 5933

URL: http://svn.debian.org/wsvn/?sc=1&rev=5933
Log:
Actually, try *with* 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=5933&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Fri Jul 20 14:36:55 2007
@@ -193,9 +193,9 @@
         {
             push @vers, $cpan_mod->cpan_version;
         }
-        elsif( s/^Net::// )
-        {
-            $cpan_mod = $cpan->expand('Module', $_);
+        elsif( ! /^Net::/ )
+        {
+            $cpan_mod = $cpan->expand('Module', "Net::$_");
             push @vers, $cpan_mod->cpan_version if $cpan_mod;
         }
     }