/[fuse-comp]/fuse-comp.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /fuse-comp.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 29 by dpavlin, Tue Jul 10 02:57:03 2007 UTC revision 30 by dpavlin, Tue Jul 10 10:48:21 2007 UTC
# Line 207  sub compress_file2path { Line 207  sub compress_file2path {
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    

Legend:
Removed from v.29  
changed lines
  Added in v.30

  ViewVC Help
Powered by ViewVC 1.1.26