--- deliantra/Deliantra-Client/DC.pm 2006/08/18 01:01:00 1.116 +++ deliantra/Deliantra-Client/DC.pm 2006/08/19 02:49:53 1.117 @@ -71,10 +71,10 @@ sub put($$$) { my ($db, $key, $data) = @_; - my $key = $db + 0; + my $hkey = $db + 0; Scalar::Util::weaken $db; - $DB_SYNC{$key} ||= AnyEvent->timer (after => 5, cb => sub { - delete $DB_SYNC{$key}; + $DB_SYNC{$hkey} ||= AnyEvent->timer (after => 5, cb => sub { + delete $DB_SYNC{$hkey}; $db->db_sync if $db; });