Bug#400338: lintian: unpack/list-udebpkg does not handle Packages.gz

[Bill Allombert <ballombe@debian.org>]

Package: lintian
Version: 1.23.26
Severity: normal
Tags: patch

Hello Debian Lintian Maintainers,

unpack/list-udebpkg does not handle compressed udeb Packages file.
This is a probelm because the archive do not carry uncmpressed
Packages file anymore.

The other unpack/list-*pkg handle Packages.gz fine.

Please find a patch. Sorry I forgot to send it sooner.

Cheers,
-- 
Bill. <ballombe@debian.org>

Imagine a large blue swirl here. 

Index: unpack/list-udebpkg
===================================================================
--- unpack/list-udebpkg	(revision 792)
+++ unpack/list-udebpkg	(working copy)
@@ -90,8 +91,14 @@
 # parse Packages file to get list of packages
 my $packages = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_SECTION/".
                "debian-installer/binary-$LINTIAN_ARCH/Packages";
-print "N: Parsing $packages ...\n" if $verbose;
-open(IN,"$packages") or fail("cannot open Packages file $packages: $!");
+if (-e $packages) {
+        print "N: Parsing $packages ...\n" if $verbose;
+        open(IN,"$packages") or fail("cannot open Packages file $packages: $!");} elsif (-e "$packages.gz") {
+        print "N: Parsing $packages.gz ...\n" if $verbose;
+        open(IN,"gzip -dc $packages.gz | ") or fail("cannot open Packages file $packages.gz: $!");
+} else {
+        fail("No packages file $packages");
+}
 
 my $line;
 my %packages;