equal
deleted
inserted
replaced
131 (-f _) and ((-M _) > 0) or return; # don't process the fresh blocks |
131 (-f _) and ((-M _) > 0) or return; # don't process the fresh blocks |
132 |
132 |
133 # we don't need uncompressed files if an compressed version |
133 # we don't need uncompressed files if an compressed version |
134 # exists |
134 # exists |
135 unlink $_ and return if -f "$_.gz"; |
135 unlink $_ and return if -f "$_.gz"; |
136 unlink "$_.x" and return if -f "$_.x.gz"; |
136 unlink "$_.x" and return if -f "$_.x.gz"; |
137 |
137 |
138 # the next step we can't do, because it can happen that |
138 # the next step we can't do, because it can happen that |
139 # the restorer does not know about a password |
139 # the restorer does not know about a password |
140 #unlink "$_.gz.x" and return if -f "$_.gz"; |
140 #unlink "$_.gz.x" and return if -f "$_.gz"; |
141 |
141 |
142 # cut away the first part of the filename and |
142 # cut away the first part of the filename and |
143 # some optional extension |
143 # some optional extension |
144 (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/; |
144 (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/; |
145 return if exists $block{$rn}; |
145 return if exists $block{$rn}; |
205 ++$done; |
205 ++$done; |
206 |
206 |
207 next |
207 next |
208 if -f "$dir/data/$k" |
208 if -f "$dir/data/$k" |
209 or -f "$dir/data/$k.gz" |
209 or -f "$dir/data/$k.gz" |
210 or -f "$dir/data/$k.x" |
210 or -f "$dir/data/$k.x" |
211 or -f "$dir/data/$k.x.gz" |
211 or -f "$dir/data/$k.x.gz" |
212 or -f "$dir/data/$k.gz.x"; |
212 or -f "$dir/data/$k.gz.x"; |
213 say "missing $k @$i"; |
213 say "missing $k @$i"; |
214 @invalid{@$i} = (); |
214 @invalid{@$i} = (); |
215 } |
215 } |
216 $SIG{ALRM}->(); |
216 $SIG{ALRM}->(); |
217 alarm 0; |
217 alarm 0; |