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} ) { |
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 { |