[project @ 2001-02-20 10:17:15 by ajt]

add more token debugging code

diff --git a/cgi/common.pl b/cgi/common.pl
index c91f6bfa5ffd7d538c7272da270b62a6408314c1..f212eedeb770bd007e6b81e35ee07c1087e18007 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -303,6 +303,7 @@ sub getbugs {
         -e "$debbugs::gSpoolDir/by-$opt.idx") 
     {
         my %lookup;
+print STDERR "optimized" 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) {