r5929 - /scripts/qa/versioncheck.pl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Fri Jul 20 14:23:35 UTC 2007


Author: dmn
Date: Fri Jul 20 14:23:35 2007
New Revision: 5929

URL: http://svn.debian.org/wsvn/?sc=1&rev=5929
Log:
Use "" when cannot find CPAN version

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=5929&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Fri Jul 20 14:23:35 2007
@@ -167,11 +167,7 @@
 {
     my ($watch, $cpan_ver) = @_;
 
-    my @non_cpan = grep( !/cpan/i, @$watch );
-
-    return $cpan_ver unless @non_cpan;
-
-    return 'EUNIMPL';
+    return $cpan_ver || 'EUNIMPL';
 }
 
 sub latest_upstream_from_cpan($)
@@ -198,7 +194,7 @@
 
     @vers = sort { cmp_ver($a,$b) } @vers;
 
-    return $vers[-1];
+    return $vers[-1] || '';
 }
 
 print <<_EOF;




More information about the Pkg-perl-cvs-commits mailing list