lintian: r796 - in trunk: debian unpack

[rra@debian.org]

Author: rra
Date: 2006-12-03 19:52:55 +0100 (Sun, 03 Dec 2006)
New Revision: 796

Modified:
   trunk/debian/changelog
   trunk/unpack/list-udebpkg
Log:
* unpack/list-udebpkg:
  + [RA] Handle compressed udeb Packages files.  Thanks, Bill
    Allombert.  (Closes: #400338)

Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2006-12-03 18:47:45 UTC (rev 795)
+++ trunk/debian/changelog	2006-12-03 18:52:55 UTC (rev 796)
@@ -37,8 +37,12 @@
   * debian/control:
     + [RA] Depend on gettext 0.16 or later for --use-untranslated.
 
- -- Russ Allbery <rra@debian.org>  Sun,  3 Dec 2006 10:47:35 -0800
+  * unpack/list-udebpkg:
+    + [RA] Handle compressed udeb Packages files.  Thanks, Bill
+      Allombert.  (Closes: #400338)
 
+ -- Russ Allbery <rra@debian.org>  Sun,  3 Dec 2006 10:52:39 -0800
+
 lintian (1.23.26) unstable; urgency=low
 
   * checks/binaries{.desc,}:

Modified: trunk/unpack/list-udebpkg
===================================================================
--- trunk/unpack/list-udebpkg	2006-12-03 18:47:45 UTC (rev 795)
+++ trunk/unpack/list-udebpkg	2006-12-03 18:52:55 UTC (rev 796)
@@ -90,8 +90,16 @@
 # 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 \Q$packages\E.gz | ")
+        or fail("cannot open Packages file $packages.gz: $!");
+} else {
+    fail("No packages file $packages");
+}
 
 my $line;
 my %packages;