Skip junk files in include dir

This commit is contained in:
Jamie Cameron
2009-04-17 21:22:34 +00:00
parent 9bc25c5a19
commit 32f69727e0

View File

@@ -84,7 +84,11 @@ while(<$fh>) {
local @dirs = sort { $a cmp $b } readdir(DIR);
closedir(DIR);
foreach $f (@dirs) {
next if ($f =~ /^\./ || $f =~ /\.rpmsave$/ ||
next if ($f =~ /^\./ ||
$f =~ /\.rpm(save|orig|new)$/ ||
$f =~ /\~$/ ||
$f =~ /,v$/ ||
$f =~ /\.swp$/ ||
$f =~ /\.lock$/);
local ($inc, $ilnum, $ifiles) =
&get_config("$incfile/$f");