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 <[EMAIL PROTECTED]>  Sun,  3 Dec 2006 10:52:39 -0800
+ -- Russ Allbery <[EMAIL PROTECTED]>  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;


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to