From 024a54066701a901c80c545122c1737ccf0a4bd1 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 8 Oct 2006 23:18:10 -0700 Subject: [PATCH] Modify dir and list assignment to be a single map --- scripts/gen-indices.in | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); -- 2.39.5