r6098 - /scripts/qa/versioncheck.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Jul 30 12:39:42 UTC 2007
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');
More information about the Pkg-perl-cvs-commits
mailing list