lintian: r797 - in trunk: debian lib

[rra@debian.org]

Author: rra
Date: 2006-12-03 20:07:00 +0100 (Sun, 03 Dec 2006)
New Revision: 797

Modified:
   trunk/debian/changelog
   trunk/lib/Lab.pm
Log:
* lib/Lab.pm:
  + [RA] Preserve the old package lists when setting up a static lab so
    that the unpack programs can build a list of changed packages and
    incremental mode works.  Thanks, Bill Allmobert.  (Closes: #400342)

Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2006-12-03 18:52:55 UTC (rev 796)
+++ trunk/debian/changelog	2006-12-03 19:07:00 UTC (rev 797)
@@ -37,11 +37,16 @@
   * debian/control:
     + [RA] Depend on gettext 0.16 or later for --use-untranslated.
 
+  * lib/Lab.pm:
+    + [RA] Preserve the old package lists when setting up a static lab so
+      that the unpack programs can build a list of changed packages and
+      incremental mode works.  Thanks, Bill Allmobert.  (Closes: #400342)
+
   * 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
+ -- Russ Allbery <rra@debian.org>  Sun,  3 Dec 2006 11:06:33 -0800
 
 lintian (1.23.26) unstable; urgency=low
 

Modified: trunk/lib/Lab.pm
===================================================================
--- trunk/lib/Lab.pm	2006-12-03 18:52:55 UTC (rev 796)
+++ trunk/lib/Lab.pm	2006-12-03 19:07:00 UTC (rev 797)
@@ -116,10 +116,14 @@
 	}
     }
 
-    # just create empty files
+    # Just create empty files if they don't already exist.  If they do already
+    # exist, we need to keep the old files so that the list-* unpack programs
+    # can analyze what changed.
     for my $pkgtype (qw( binary source udeb )) {
-	_touch("$dir/info/$pkgtype-packages")
-	    or fail("cannot create $pkgtype package list");
+	if (not -f "$dir/info/$pkgtype-packages") {
+	    _touch("$dir/info/$pkgtype-packages")
+		or fail("cannot create $pkgtype package list");
+	}
     }
 
     $self->{dir} = $dir;