--- deliantra/server/ext/CFDB.pm 2007/12/05 11:08:34 1.2 +++ deliantra/server/ext/CFDB.pm 2009/11/29 10:52:14 1.3 @@ -34,7 +34,7 @@ unless (-e $self->{db_file}) { write_file ($self->{db_file}, cf::encode_json ({})); } - $self->check_maildb (); + $self->check_maildb; $self; } @@ -42,7 +42,7 @@ sub check_maildb { my ($self) = @_; - if ($self->{last_check} > (-M $self->{db_file})) { + if ($self->{last_check} > -M $self->{db_file}) { $self->{last_check} = -M $self->{db_file}; my $maildb = eval { my $m = cf::decode_json read_file $self->{db_file}; return $m }; @@ -84,4 +84,5 @@ $self->{maildb}->{$key} = $value; $self->sync_maildb; } + 1