View | Details | Raw Unified | Return to bug 11317
Collapse All | Expand All

(-)a/tools/access_files.pl (-2 / +1 lines)
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
- 

Return to bug 11317