equal
deleted
inserted
replaced
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 # FIXME: do we need a compressed version? |
138 # the next step we can't do, because it can happen that |
|
139 # the restorer does not know about a password |
|
140 #unlink "$_.gz.x" and return if -f "$_.gz"; |
139 |
141 |
140 # cut away the first part of the filename and |
142 # cut away the first part of the filename and |
141 # some optional extension |
143 # some optional extension |
142 (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/; |
144 (my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/; |
143 exists $block{$rn} and return; |
145 return if exists $block{$rn}; |
144 push @unused, abs_path $File::Find::name; |
146 push @unused, abs_path $File::Find::name; |
145 return; |
147 return; |
146 |
148 |
147 }, |
149 }, |
148 "$dir/data" |
150 "$dir/data" |