r6168 - /scripts/qa/versioncheck.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Jul 31 07:57:46 UTC 2007
Author: dmn
Date: Tue Jul 31 07:57:46 2007
New Revision: 6168
URL: http://svn.debian.org/wsvn/?sc=1&rev=6168
Log:
Drop obsolete CPAN.pm usage
Modified:
scripts/qa/versioncheck.pl
Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6168&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Tue Jul 31 07:57:46 2007
@@ -32,9 +32,7 @@
use SVN::Client;
use SVN::Core;
use IO::Scalar;
-#use Parse::CPAN::Packages;
use Parse::DebianChangelog;
-use CPAN ();
use Getopt::Long;
our $opt_debug = 0;
@@ -56,7 +54,6 @@
debugmsg( "CPAN mirror is $CPAN_MIRROR\n" );
debugmsg( "HOME=$ENV{HOME}\n" );
-debugmsg( "CPAN home=".$CPAN::Config->{cpan_home}."\n" );
sub from_cache($$$)
{
@@ -237,16 +234,6 @@
} unless from_cache(\%cpan_authors, 'cpan_authors', 12)
and from_cache(\%cpan_modules, 'cpan_modules', 12);
-my $cpan; # instance of Parse::CPAN::Packages
-do {
-# my $url = "$CPAN_MIRROR/modules/02packages.details.txt.gz";
-# my $file = LWP::Simple::get($url) or die "Failed to retreive $url";
-
-# my $text = Compress::Zlib::memGunzip(\$file)
-# or die "Failed to decompress $url";
-
- $cpan = 'CPAN::Shell';
-};
# RETURNS
# 1 if first version is bigger
More information about the Pkg-perl-cvs-commits
mailing list