Lines Matching refs:f
60 -local($dir, $f, @stbuf, @rv);
61 +local($dir, $f, @stbuf, @rv, @exclude);
65 foreach $f (sort { lc($a) cmp lc($b) } readdir(DIR)) {
66 if ($f eq "." || $f eq ".." || $f =~ /\.bak$/ || $f eq "functions" ||
67 @@ -133,7 +134,7 @@ foreach $f (sort { lc($a) cmp lc($b) } r
68 -d "$dir/$f" || $f =~ /\.swp$/ || $f eq "skeleton" ||
69 $f =~ /\.lock$/ || $f =~ /\.dpkg-(old|dist)$/ ||
70 $f =~ /^\.depend\./ || $f eq '.legacy-bootordering' ||
71 - $f =~ /^mandrake/) { next; }
72 + $f =~ /^mandrake/ || grep {$_ eq $f} @exclude ) { next; }
73 if (@stbuf = stat("$dir/$f")) {
74 push(@rv, "$f $stbuf[1]");