Skip attic files.

git-svn-id: svn://10.0.0.236/trunk@50353 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
slamm%netscape.com
1999-10-11 19:40:51 +00:00
parent dcfe02ab7b
commit ea86098377

View File

@@ -193,10 +193,11 @@ sub expand_cvs_modules {
} } } }
sub find_cvs_files {
$File::Find::prune = 1 if /.OBJ$/ or /^CVS$/;
$File::Find::prune = 1 if /.OBJ$/ or /^CVS$/ or /^Attic$/;
if (-d $_) {
$File::Find::prune = 1 if /$exclude_pat/o or $seen{$File::Find::name};
$seen{$File::Find::name} = 1;
return;
}
my $dir = $File::Find::dir;
$dir =~ s|^$cvsroot/||o;