From bcbe2ac25fa64c0e228fdb690fa21724d7c50e77 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Thu, 14 Jul 2005 13:25:48 +0000
Subject: [PATCH] Don't do exists() on a method call

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@506 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/greylisting | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/greylisting b/plugins/greylisting
index 2c9c412..89df1bc 100644
--- a/plugins/greylisting
+++ b/plugins/greylisting
@@ -184,7 +184,7 @@ sub denysoft_greylist {
   $self->log(LOGDEBUG, "config: " . join(',',map { $_ . '=' . $config->{$_} } sort keys %$config));
 
   # Always allow relayclients and whitelisted hosts/senders
-  return DECLINED if exists $self->qp->connection->relay_client();
+  return DECLINED if $self->qp->connection->relay_client();
   return DECLINED if $self->qp->connection->notes('whitelisthost');
   return DECLINED if $transaction->notes('whitelistsender');