bin/imager.check
branchtesting
changeset 38 fac6d76d06e8
parent 37 cb50d6c57439
child 44 f1fea4381014
--- a/bin/imager.check	Sun Jul 31 15:03:06 2011 +0200
+++ b/bin/imager.check	Sun Jul 31 16:09:46 2011 +0200
@@ -135,12 +135,14 @@
             unlink $_ and return if -f "$_.gz";
 	    unlink "$_.x" and return if -f "$_.x.gz";
 
-	    # FIXME: do we need a compressed version?
+	    # the next step we can't do, because it can happen that
+	    # the restorer does not know about a password
+	    #unlink "$_.gz.x" and return if -f "$_.gz";
 
             # cut away the first part of the filename and
             # some optional extension
             (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/;
-            exists $block{$rn} and return;
+            return if exists $block{$rn};
             push @unused, abs_path $File::Find::name;
             return;