Incorrect assignment of $count variable in is_autowl and add_autowl functions of Greylist.pm

[alescano]

Hi @benningm,

I think in these functions return value of do_cached function is being not properly assigned because of the missing parenthesis around $count ( lines 290 and 313 ). I noticed because autowl count in the database was never being incremented.

mtpolicyd/lib/Mail/MtPolicyd/Plugin/Greylist.pm

Lines 286 to 326 in 23a4c60

	sub is_autowl {
	my ( $self, $r, $sender, $client_ip ) = @_;
	my $sender_domain = $self->_extract_sender_domain( $sender );
	my $count = $r->do_cached('greylist-autowl-count', sub {
	$self->_awl->get( $sender_domain, $client_ip );
	} );
	if( ! defined $count ) {
	$self->log($r, 'client is not on autowl');
	return(0);
	}
	if( $count < $self->autowl_threshold ) {
	$self->log($r, 'client has not yet reached autowl_threshold');
	return(0);
	}
	$self->log($r, 'client has valid autowl. updating database');
	$self->_awl->incr( $sender_domain, $client_ip );
	return(1);
	}
	sub add_autowl {
	my ( $self, $r, $sender, $client_ip ) = @_;
	my $sender_domain = $self->_extract_sender_domain( $sender );
	my $count = $r->do_cached('greylist-autowl-count', sub {
	$self->_awl->get( $sender_domain, $client_ip );
	} );
	if( defined $count ) {
	$self->log($r, 'client already on autowl, just incrementing count');
	$self->_awl->incr( $sender_domain, $client_ip );
	return;
	}
	$self->log($r, 'creating initial autowl entry');
	$self->_awl->create( $sender_domain, $client_ip );
	return;
	}