# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1306767167 -7200
# Node ID d0156ec3aafb334404425dfbdb2714348e6f6c6f
# Parent  9fc40547116d262dce958ffb93b0d6a54c078cb7
delete key files *unless* they are listed in key index files

diff -r 9fc40547116d -r d0156ec3aafb bin/update-serial
--- a/bin/update-serial	Mon May 30 16:50:03 2011 +0200
+++ b/bin/update-serial	Mon May 30 16:52:47 2011 +0200
@@ -529,7 +529,7 @@
     # prueft alle schluesseldateien (ksk, zsk) ob sie in der jeweiligen
     # indexdatei beschrieben sind. wenn nicht werden sie geloescht.
     for my $file (glob "$dir/K*.key $dir/K*.private") {
-        unlink $file if basename($file, ".key", ".private") ~~ @keys;
+        unlink $file unless basename($file, ".key", ".private") ~~ @keys;
     }
 }