--- deliantra/Deliantra-Client/DC.pm	2006/12/09 02:21:24	1.136
+++ deliantra/Deliantra-Client/DC.pm	2007/01/05 17:37:39	1.138
@@ -28,7 +28,6 @@
 use AnyEvent ();
 use BerkeleyDB;
 use Pod::POM ();
-use Scalar::Util ();
 use File::Path ();
 use Storable (); # finally
 
@@ -164,8 +163,8 @@
    my ($db, $key, $data) = @_;
 
    my $hkey = $db + 0;
-   Scalar::Util::weaken $db;
-   $DB_SYNC{$hkey} ||= AnyEvent->timer (after => 5, cb => sub {
+   CFPlus::weaken $db;
+   $DB_SYNC{$hkey} ||= AnyEvent->timer (after => 30, cb => sub {
       delete $DB_SYNC{$hkey};
       $db->db_sync if $db;
    });
@@ -287,7 +286,7 @@
 
    $DB_ENV = new BerkeleyDB::Env
                     -Home => $DB_HOME,
-                    -Cachesize => 1_000_000,
+                    -Cachesize => 8_000_000,
                     -ErrFile => "$DB_HOME/errorlog.txt",
 #                 -ErrPrefix => "DATABASE",
                     -Verbose => 1,