[svn:qpsmtpd] r714 - trunk/plugins

[email protected] Tue, 13 Feb 2007 10:29:48 -0800 (PST)
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Tue Feb 13 10:29:47 2007
New Revision: 714

Modified:
   trunk/plugins/spamassassin

Log:
Quiet warnings (Steve_p)


Modified: trunk/plugins/spamassassin
==============================================================================
--- trunk/plugins/spamassassin	(original)
+++ trunk/plugins/spamassassin	Tue Feb 13 10:29:47 2007
@@ -102,7 +102,8 @@
 
   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;
   }