r5990 - /scripts/qa/versioncheck.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Thu Jul 26 15:21:10 UTC 2007
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
More information about the Pkg-perl-cvs-commits
mailing list