r6168 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

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