From: Don Armstrong <don@volo>
Date: Mon, 9 Oct 2006 06:18:10 +0000 (-0700)
Subject:  Modify dir and list assignment to be a single map
X-Git-Tag: release/2.6.0~593^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=024a54066701a901c80c545122c1737ccf0a4bd1;p=debbugs.git

 Modify dir and list assignment to be a single map
---

diff --git a/scripts/gen-indices.in b/scripts/gen-indices.in
index 4991df0b..b96b99b2 100755
--- a/scripts/gen-indices.in
+++ b/scripts/gen-indices.in
@@ -138,8 +138,8 @@ while (my $dir = shift @dirs) {
 	my @subdirs = readdir(DIR);
 	closedir(DIR);
 
-	my @list = map { s/\.summary$//; $_ } grep { m/^\d+\.summary$/ } @subdirs;
-	push @dirs, map { "$dir/$_" } grep { m/^\d+$/ } @subdirs;
+	my @list = map { m/^(\d+)\.summary$/?($1):() } @subdirs;
+	push @dirs, map { m/^(\d+)$/ && -d "$dir/$1"?("$dir/$1"):() } @subdirs;
 
 	for my $f (@list) {
 		print "Up to $cnt bugs...\n" if (++$cnt % 100 == 0 && $verbose);