r6098 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Jul 30 12:39:42 2007
New Revision: 6098

URL: http://svn.debian.org/wsvn/?sc=1&rev=6098
Log:
Rewrite CPAN ls-lR parsing using CImpress::Zlib, since IO::Uncompress::Gunzip (lib-io-compress-zlib-perl) is still in NEW :)

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6098&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Mon Jul 30 12:39:42 2007
@@ -196,13 +196,16 @@
 my %cpan_authors;
 my %cpan_modules;
 do {
-    use IO::Uncompress::Gunzip;
+    open(TMP, '+>', undef) or die "Unable to open anonymous temporary file";
+    my $old = select(TMP);
+    my $lslr = LWP::Simple::getprint("$CPAN_MIRROR/ls-lR.gz");
+    select($old);
+    seek(TMP, 0, 0);
+    my $gz = Compress::Zlib::gzopen(\*TMP, 'rb') or die $Compress::Zlib::gzerrno;
+
     my $storage;
-    my $lslr = LWP::Simple::get("$CPAN_MIRROR/ls-lR.gz");
-    my $io = IO::Uncompress::Gunzip->new(\$lslr);
-
     my ($section, $path);
-    while( <$io> )
+    while( $gz->gzreadline($_) )
     {
         chomp;
         next unless $_;
@@ -232,6 +235,7 @@
             push @$storage, $what;
         }
     }
+    close(TMP);
 
     to_cache(\%cpan_modules, 'cpan_modules');
     to_cache(\%cpan_authors, 'cpan_authors');