--- 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;
     }
 }