/[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 2 by dpavlin, Sun Jul 8 12:55:52 2007 UTC revision 4 by dpavlin, Sun Jul 8 13:46:33 2007 UTC
# Line 20  my $mount = { Line 20  my $mount = {
20    
21  my $debug = 1;  my $debug = 1;
22    
23  my $skip_extensions_regex = qr/\.(sw[px]|gif|png|jpeg|jpg|avi|rar|zip|bz2|gz|tgz|avi|mpeg|mpg|tmp|temp)$/i;  my $skip_extensions_regex = qr/\.(?:sw[a-z]|gif|png|jpeg|jpg|avi|rar|zip|bz2|gz|tgz|avi|mpeg|mpg|tmp|temp)$/i;
24    
25  foreach my $dir ( keys %$mount ) {  foreach my $dir ( keys %$mount ) {
26          if ( ! -e $mount->{$dir} ) {          if ( ! -e $mount->{$dir} ) {
# Line 95  sub file_copy { Line 95  sub file_copy {
95          }          }
96          close($d) || warn "can't close $d_path: $!";          close($d) || warn "can't close $d_path: $!";
97          close($s) || warn "can't close $s_path: $!";          close($s) || warn "can't close $s_path: $!";
98            warn "-- $s_path [", -s $s_path, "]\n >>> $d_path [", -s $d_path, "]\n" if $debug;
99  }  }
100    
101  sub x_open {  sub x_open {

Legend:
Removed from v.2  
changed lines
  Added in v.4

  ViewVC Help
Powered by ViewVC 1.1.26