[Lxr-commits] CVS: lxr/lib/LXR/Files CVS.pm,1.18,1.19 Plain.pm,1.19,1.20

[Dave B. <bro...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR/Files
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12299/lib/LXR/Files

Modified Files:
	CVS.pm Plain.pm 
Log Message:
option to ignore certain directories (e.g. CVSROOT)

Index: CVS.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files/CVS.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- CVS.pm	2 May 2003 23:04:16 -0000	1.18
+++ CVS.pm	29 Jun 2004 20:41:23 -0000	1.19
@@ -234,11 +234,13 @@
 	my $real = $self->toreal($pathname, $release);
 
 	opendir($DIRH, $real) || return ();
-	while (defined($node = readdir($DIRH))) {
+	FILE: while (defined($node = readdir($DIRH))) {
 		next if $node =~ /^\.|~$|\.orig$/;
 		next if $node eq 'CVS';
-
 		if (-d $real.$node) {
+			foreach my $ignoredir ($config->ignoredirs) {
+				next FILE if $node eq $ignoredir;
+			}
 			if ($node eq 'Attic') {
 				push(@files, $self->getdir($pathname.$node.'/', $release));
 			}

Index: Plain.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files/Plain.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Plain.pm	26 Feb 2002 15:57:55 -0000	1.19
+++ Plain.pm	29 Jun 2004 20:41:23 -0000	1.20
@@ -102,11 +102,14 @@
 
 	$dir = $self->toreal($pathname, $release);
 	opendir(DIR, $dir) || die ("Can't open $dir");
-	while (defined($node = readdir(DIR))) {
+	FILE: while (defined($node = readdir(DIR))) {
 		next if $node =~ /^\.|~$|\.orig$/;
 		next if $node eq 'CVS';
 
 		if (-d $dir.$node) {
+			foreach my $ignoredir ($config->ignoredirs) {
+				next FILE if $node eq $ignoredir;
+			}
 			push(@dirs, $node.'/');
 		}
 		else {