svn commit: r881316 - in /spamassassin/trunk: lib/Mail/SpamAssassin/BayesStore/BDB.pm t/bayesbdb.t

[mm...@apache.org]

Author: mmartinec
Date: Tue Nov 17 15:00:34 2009
New Revision: 881316

URL: http://svn.apache.org/viewvc?rev=881316&view=rev
Log:
Fixed bug in BayesStore::BDB::tok_get, fixed corresponding test

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

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm?rev=881316&r1=881315&r2=881316&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/BayesStore/BDB.pm Tue Nov 17 15:00:34 2009
@@ -777,8 +777,8 @@
 sub tok_get {
   my($self, $token) = @_;
   dbg("bayes: Entering tok_get");
-  my $array = $self->tok_get_all([$token]);
-  return !@$array ? () : @{$array->[0]};
+  my $array = $self->tok_get_all($token);
+  return !@$array ? () : (@{$array->[0]})[1,2,3];
 }
 
 =head2 tok_get_all

Modified: spamassassin/trunk/t/bayesbdb.t
URL: http://svn.apache.org/viewvc/spamassassin/trunk/t/bayesbdb.t?rev=881316&r1=881315&r2=881316&view=diff
==============================================================================
--- spamassassin/trunk/t/bayesbdb.t (original)
+++ spamassassin/trunk/t/bayesbdb.t Tue Nov 17 15:00:34 2009
@@ -38,7 +38,7 @@
 }
 ok($sa);
 
-ok ($sa->{bayes_scanner} && getimpl);
+ok($sa->{bayes_scanner} && getimpl);
 
 ok(!$sa->{bayes_scanner}->is_scan_available());
 
@@ -149,6 +149,7 @@
 
 # make sure we learn to a journal
 tstlocalrules ("
+bayes_store_module Mail::SpamAssassin::BayesStore::BDB
 bayes_min_spam_num 10
 bayes_min_ham_num 10
 ");