Mailing List Archive

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);