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