Lines 53-60
else {
Link Here
|
53 |
foreach my $dir(@directories){ |
53 |
foreach my $dir(@directories){ |
54 |
opendir(DIR, $dir); |
54 |
opendir(DIR, $dir); |
55 |
foreach my $filename (readdir(DIR)) { |
55 |
foreach my $filename (readdir(DIR)) { |
56 |
my $id = md5_hex($filename); |
|
|
57 |
my $full_path = "$dir/$filename"; |
56 |
my $full_path = "$dir/$filename"; |
|
|
57 |
my $id = md5_hex($full_path); |
58 |
next if ($filename =~ /^\./ or -d $full_path); |
58 |
next if ($filename =~ /^\./ or -d $full_path); |
59 |
|
59 |
|
60 |
my $st = stat($full_path); |
60 |
my $st = stat($full_path); |
61 |
- |
|
|