From 237bf904a5e8a2fcafd91ff8c5528f052298ea83 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 13 Feb 2007 18:29:47 +0000
Subject: [PATCH] Quiet warnings (Steve_p)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@714 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/spamassassin | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/plugins/spamassassin b/plugins/spamassassin
index 5b62153..5ca7e76 100644
--- a/plugins/spamassassin
+++ b/plugins/spamassassin
@@ -102,7 +102,8 @@ sub hook_data_post { # check_spam
 
   my $remote  = 'localhost';
   my $port    = 783;
-  if ($self->{_args}->{spamd_socket} =~ /^([\w.-]+):(\d+)$/) {
+  if (defined $self->{_args}->{spamd_socket}
+      && $self->{_args}->{spamd_socket} =~ /^([\w.-]+):(\d+)$/) {
     $remote  = $1;
     $port    = $2;
   }