develooper Front page | perl.cvs.qpsmtpd | Postings from February 2007

[svn:qpsmtpd] r714 - trunk/plugins

From:
msergeant
Date:
February 13, 2007 09:29
Subject:
[svn:qpsmtpd] r714 - trunk/plugins
Message ID:
20070213182948.55DC8CBA1B@x12.develooper.com
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;
   }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About