From 87d4184d2ac1e0fc834c81532a9378ff2c5debbb Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 19 Jun 2007 05:47:54 -0700 Subject: [PATCH] * Handle archive directories correctly * Indicate when we fail to stat a bug * Ditch useless \n --- scripts/gen-indices.in | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/scripts/gen-indices.in b/scripts/gen-indices.in index 730880a..73243b8 100755 --- a/scripts/gen-indices.in +++ b/scripts/gen-indices.in @@ -167,7 +167,7 @@ my @dirs = ($initialdir); while (my $dir = shift @dirs) { printf "Doing dir %s ...\n", $dir if $verbose; - opendir(DIR, "$dir/.") or die "opendir $dir: $!\n"; + opendir(DIR, "$dir/.") or die "opendir $dir: $!"; my @subdirs = readdir(DIR); closedir(DIR); @@ -176,7 +176,11 @@ while (my $dir = shift @dirs) { for my $bug (@list) { print "Up to $cnt bugs...\n" if (++$cnt % 100 == 0 && $verbose); - my $stat = stat(getbugcomponent($bug,'summary')); + my $stat = stat(getbugcomponent($bug,'summary',$initialdir)); + if (not defined $stat) { + print STDERR "Unable to stat $bug $!\n"; + next; + } next if $stat->mtime < $time; my $fdata = readbug($bug, $initialdir); addbugtoindex("package", $bug, split /[\s,]+/, $fdata->{"package"}); -- 2.39.2