--- /usr/share/doc/spamassassin-tools-2.50/tools/check_whitelist	Thu Dec 19 20:17:26 2002
+++ /usr/bin/check_whitelist	Fri Mar 14 15:25:44 2003
@@ -8,7 +8,9 @@
 # BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File SDBM_File); }
 
 use AnyDBM_File ;
+use NDBM_File ;
 use vars qw( %h $k $v ) ;
+use DB_File;
 
 my $db;
 if ($#ARGV == -1) {
@@ -17,7 +19,8 @@
   $db = $ARGV[0];
 }
 
-tie %h, "AnyDBM_File",$db, O_RDONLY,0600
+#tie %h, "AnyDBM_File",$db,O_RDWR,0600
+tie %h, "DB_File",$db,O_RDWR,600
       or die "Cannot open file $db: $!\n";
 my @k = grep(!/totscore$/,keys(%h));
 for my $key (@k)