From: ajt <> Date: Fri, 23 Feb 2001 15:40:40 +0000 (-0800) Subject: [project @ 2001-02-23 07:40:40 by ajt] X-Git-Tag: release/2.6.0~1149 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=877967f06577ac4c987e16d2f1b6a90909b819e3;p=debbugs.git [project @ 2001-02-23 07:40:40 by ajt] minor bugfixes --- diff --git a/cgi/common.pl b/cgi/common.pl index f212eede..ccf15aaa 100644 --- a/cgi/common.pl +++ b/cgi/common.pl @@ -303,7 +303,7 @@ sub getbugs { -e "$debbugs::gSpoolDir/by-$opt.idx") { my %lookup; -print STDERR "optimized" if ($debug); +print STDERR "optimized\n" if ($debug); tie %lookup, DB_File => "$debbugs::gSpoolDir/by-$opt.idx", O_RDONLY or die "$0: can't open $debbugs::gSpoolDir/by-$opt.idx ($!)\n"; while ($key = shift) { @@ -312,6 +312,8 @@ print STDERR "optimized" if ($debug); push @result, (unpack 'N*', $bugs); } } + untie %lookup; +print STDERR "done optimized\n" if ($debug); } else { if ( $common_archive ) { open I, "<$debbugs::gSpoolDir/index.archive"