avoid returning undef if there are no lists defined

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@59 958fd67b-6ff1-0310-b445-bb7760255be9
2002-09-08 14:15:21 +00:00 · 2002-09-08 14:15:21 +00:00 · 8e42b7ab1b
commit 8e42b7ab1b
parent c8698cad53
1 changed files with 1 additions and 0 deletions
--- a/plugins/rhsbl
+++ b/plugins/rhsbl
@ -21,6 +21,7 @@ sub mail_handler {
 	if check_rhsbl($self, $rhsbl, $host);
    }
  }
+  return DECLINED;
 }

 sub rcpt_handler {