You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by do...@apache.org on 2006/10/04 01:21:33 UTC

svn commit: r452675 - /spamassassin/branches/3.1/lib/Mail/SpamAssassin/Client.pm

Author: dos
Date: Tue Oct  3 16:21:32 2006
New Revision: 452675

URL: http://svn.apache.org/viewvc?view=rev&rev=452675
Log:
bug 5105: M::SA::Client doesn't always catch failed connection to spamd, fixed

Modified:
    spamassassin/branches/3.1/lib/Mail/SpamAssassin/Client.pm

Modified: spamassassin/branches/3.1/lib/Mail/SpamAssassin/Client.pm
URL: http://svn.apache.org/viewvc/spamassassin/branches/3.1/lib/Mail/SpamAssassin/Client.pm?view=diff&rev=452675&r1=452674&r2=452675
==============================================================================
--- spamassassin/branches/3.1/lib/Mail/SpamAssassin/Client.pm (original)
+++ spamassassin/branches/3.1/lib/Mail/SpamAssassin/Client.pm Tue Oct  3 16:21:32 2006
@@ -135,6 +135,7 @@
   print $remote "$EOL";
 
   my $line = <$remote>;
+  return undef unless (defined $line);
 
   my ($version, $resp_code, $resp_msg) = $self->_parse_response_line($line);
 
@@ -241,6 +242,7 @@
   print $remote "$EOL";
 
   my $line = <$remote>;
+  return undef unless (defined $line);
 
   my ($version, $resp_code, $resp_msg) = $self->_parse_response_line($line);
 
@@ -304,6 +306,7 @@
   print $remote "$EOL";
 
   my $line = <$remote>;
+  return undef unless (defined $line);
 
   my ($version, $resp_code, $resp_msg) = $self->_parse_response_line($line);
 
@@ -360,6 +363,7 @@
   print $remote "$EOL";
 
   my $line = <$remote>;
+  return undef unless (defined $line);
 
   my ($version, $resp_code, $resp_msg) = $self->_parse_response_line($line);
 
@@ -408,6 +412,7 @@
 
   my $line = <$remote>;
   close $remote;
+  return undef unless (defined $line);
 
   my ($version, $resp_code, $resp_msg) = $self->_parse_response_line($line);