r8847 - /scripts/qa/QA/DebianArchive.pm

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Sun Nov  4 17:40:45 2007
New Revision: 8847

URL: http://svn.debian.org/wsvn/?sc=1&rev=8847
Log:
Reverted to use Compress::Zlib, as alioth doesn't have IO::Uncompress::Gunzip

Modified:
    scripts/qa/QA/DebianArchive.pm

Modified: scripts/qa/QA/DebianArchive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/DebianArchive.pm?rev=8847&op=diff
==============================================================================
--- scripts/qa/QA/DebianArchive.pm (original)
+++ scripts/qa/QA/DebianArchive.pm Sun Nov  4 17:40:45 2007
@@ -21,7 +21,9 @@
 use QA::Config '$MIRROR';
 use QA::VerComp;
 use LWP::UserAgent;
-use IO::Uncompress::Gunzip;
+#use IO::Uncompress::Gunzip; # Only in lenny
+use IO::Scalar;
+use Compress::Zlib;
 use HTML::TableExtract;
 
 # Table of cache validity, also used as index of valid "suites"
@@ -119,7 +121,9 @@
         # Still reading it all in memory, couldn't find any nice way to
         # interact with gunzip
         my $data = $res->decoded_content();
-        my $z = new IO::Uncompress::Gunzip(\$data);
+        #my $z = new IO::Uncompress::Gunzip(\$data);
+        my $sources = Compress::Zlib::memGunzip(\$data);
+        my $z = IO::Scalar->new(\$sources);
 
         # Blank line as "line" separator, so a "line" is a full record
         local $/ = "";