--- deliantra/Deliantra-Client/DC.pm 2006/08/18 01:01:00 1.116 +++ deliantra/Deliantra-Client/DC.pm 2006/09/12 20:48:17 1.118 @@ -15,7 +15,7 @@ package CFPlus; BEGIN { - $VERSION = '0.2'; + $VERSION = '0.5'; use XSLoader; XSLoader::load "CFPlus", $VERSION; @@ -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; });