svn commit: r742734 - /spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm

[mm...@apache.org]

Author: mmartinec
Date: Mon Feb  9 21:09:43 2009
New Revision: 742734

URL: http://svn.apache.org/viewvc?rev=742734&view=rev
Log:
BDB.pm: more debugging

Modified:
    spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm?rev=742734&r1=742733&r2=742734&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm Mon Feb  9 21:09:43 2009
@@ -381,13 +381,13 @@
   # Estimate the number of keys to be deleted
   {
     my $stats = $self->{handles}->{atime}->db_stat(DB_FAST_STAT);
-    dbg("DBD: Stats: " . Dumper $stats);
+    dbg("bayes: Stats: %s", Dumper($stats));
     # Scan if we've never gotten stats before
     $stats = $self->{handles}->{atime}->db_stat if $stats->{bt_ndata} == 0;
-    dbg("DBD: Stats: " . Dumper $stats);
+    dbg("bayes: Stats: %s", Dumper($stats));
     if ($self->{handles}->{atime}->db_key_range(
                             $too_old, my $less, my $equal, my $greater) == 0) {
-      dbg("DBD: less is $less, equal is $equal, greater is $greater");
+      dbg("bayes: less is $less, equal is $equal, greater is $greater");
       $count = $stats->{bt_ndata} - $stats->{bt_ndata} * $greater;
     }
   }
@@ -742,8 +742,8 @@
 =cut
 
 sub tok_get_all {
-  dbg("bayes: Entering tok_get_all");
   my($self, @keys) = @_;
+  dbg("bayes: Entering tok_get_all, %d search keys", scalar(@keys));
 
   my @values;
   for my $token (@keys) {
@@ -752,7 +752,7 @@
     }
   }
 
-  # dbg("bayes: tok_get_all returning with " . Dump \@values);
+  dbg("bayes: tok_get_all returning with %s", Dumper(\@values));
   return \@values;
 }