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 <[EMAIL PROTECTED]> Sun, 3 Dec 2006 10:47:35 -0800
+ * unpack/list-udebpkg:
+ + [RA] Handle compressed udeb Packages files. Thanks, Bill
+ Allombert. (Closes: #400338)
+ -- Russ Allbery <[EMAIL PROTECTED]> 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;
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
