[project @ 2001-02-23 07:40:40 by ajt]

minor bugfixes

diff --git a/cgi/common.pl b/cgi/common.pl
index f212eedeb770bd007e6b81e35ee07c1087e18007..ccf15aaa76c3405b0370485820f2ea8e4ca6f512 100644 (file)
--- 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"