lintian: r153 - in trunk: debian unpack

[marc@marcbrockschmidt.de]

Author: he
Date: 2004-04-14 11:10:39 +0200 (Wed, 14 Apr 2004)
New Revision: 153

Modified:
   trunk/debian/changelog
   trunk/unpack/list-binpkg
Log:
unpack/list-binpkg:
 + [HE] Try to open Packages.gz if no Packages file can be found. Fix
    based on patch by Robert Lemmen <robertle@semistable.com>, thanks!
   (Closes: #198617)
	   


Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2004-04-14 08:12:09 UTC (rev 152)
+++ trunk/debian/changelog	2004-04-14 09:10:39 UTC (rev 153)
@@ -105,6 +105,11 @@
   * checks/standards-version:
     + [JvW] Also emit warning if standards version is 3.6.0, and not yet 3.6.1
 
+  * unpack/list-binpkg:
+    + [HE] Try to open Packages.gz if no Packages file can be found. Fix
+      based on patch by Robert Lemmen <robertle@semistable.com>, thanks!
+      (Closes: #198617)
+
  -- Jeroen van Wolffelaar <jeroen@wolffelaar.nl>  Mon,  5 Apr 2004 03:17:53 +0200
 
 lintian (1.22.12) unstable; urgency=low

Modified: trunk/unpack/list-binpkg
===================================================================
--- trunk/unpack/list-binpkg	2004-04-14 08:12:09 UTC (rev 152)
+++ trunk/unpack/list-binpkg	2004-04-14 09:10:39 UTC (rev 153)
@@ -89,8 +89,15 @@
 # parse Packages file to get list of packages
 my $packages = "$LINTIAN_ARCHIVEDIR/dists/$LINTIAN_DIST/$LINTIAN_SECTION/".
                "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;