207 |
unlink $comp || confess "can't remove: $comp: $!"; |
unlink $comp || confess "can't remove: $comp: $!"; |
208 |
} else { |
} else { |
209 |
warn ">>> compressed $size_path -> $size_comp ",int(($size_comp * 100) / $size_path),"% $comp\n"; |
warn ">>> compressed $size_path -> $size_comp ",int(($size_comp * 100) / $size_path),"% $comp\n"; |
210 |
|
|
211 |
# FIXME add timeout to remove uncompressed version? |
# FIXME add timeout to remove uncompressed version? |
212 |
unlink $path || confess "can't remove $path: $!"; |
unlink $path || confess "can't remove $path: $!"; |
213 |
|
|
214 |
|
if ( -e $dest ) { |
215 |
|
warn "## cleanup uncompressed $dest\n" if $debug; |
216 |
|
unlink $dest || confess "can't remove $dest: $!"; |
217 |
|
} |
218 |
} |
} |
219 |
|
|
220 |
} |
} |
221 |
} |
} |
222 |
|
|