--- fuse-comp.pl 2007/07/08 12:55:52 2 +++ fuse-comp.pl 2007/07/08 13:46:33 4 @@ -20,7 +20,7 @@ my $debug = 1; -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; foreach my $dir ( keys %$mount ) { if ( ! -e $mount->{$dir} ) { @@ -95,6 +95,7 @@ } close($d) || warn "can't close $d_path: $!"; close($s) || warn "can't close $s_path: $!"; + warn "-- $s_path [", -s $s_path, "]\n >>> $d_path [", -s $d_path, "]\n" if $debug; } sub x_open {