r5923 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Jul 20 10:20:50 2007
New Revision: 5923

URL: http://svn.debian.org/wsvn/?sc=1&rev=5923
Log:
Pass references to memGunzip, svn param fixes use CPAN::Shell

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=5923&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Fri Jul 20 10:20:50 2007
@@ -19,7 +19,8 @@
 use SVN::Client;
 use SVN::Core;
 use IO::Scalar;
-use Parse::CPAN::Packages;
+#use Parse::CPAN::Packages;
+use CPAN ();
 
 
 # Get some information globally
@@ -33,7 +34,7 @@
     my $url = "$MIRROR/debian/dists/unstable/$section/source/Sources.gz";
     my $sources_gz = LWP::Simple::get($url);
     $sources_gz or die "Can't download $url";
-    my $sources = Compress::Zlib::memGunzip($sources_gz);
+    my $sources = Compress::Zlib::memGunzip(\$sources_gz);
 
     my( $pkg );
     foreach( split(/\n/, $sources) )
@@ -85,12 +86,16 @@
     }
 };
 
-my $cpan = Parse::CPAN::Packages->new(
-    Compress::Zlib->memGunzip(
-        LWP::Simple::get("$CPAN_MIRROR/modules/02packages.details.txt.gz",
-        ),
-    ),
-);
+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';
+};
 
 sub latest_upstream_from_watch(@)
 {
@@ -150,7 +155,7 @@
 # loop over packages
 for my $section qw(packages tools)
 {
-    my $svn_packages = $svn->ls("$SVN_REPO/$section/");
+    my $svn_packages = $svn->ls("$SVN_REPO/$section/", 'HEAD', 0);
 
     foreach my $pkg( keys %$svn_packages )
     {