From 1cf238549b8a2626f537f00b215e75eb19621570 Mon Sep 17 00:00:00 2001
From: Vsevolod Stakhov <vsevolod@rambler-co.ru>
Date: Mon, 14 Dec 2009 20:02:14 +0300
Subject: * Fix issue with list concat

---
 perl/lib/Mail/Rspamd/Client.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl')

diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index 32801b9ab..1fcaef130 100644
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -168,7 +168,7 @@ sub check {
   $self->{resp_code} = $resp_code;
   $self->{resp_msg} = $resp_msg;
 
-  return undef unless ($resp_code == 0);
+  return undef unless (defined($resp_code) && $resp_code == 0);
 
   my $cur_metric;
   my @lines = split (/^/, $in);
@@ -297,7 +297,7 @@ sub ping {
   return undef unless $line;
 
   my ($version, $resp_code, $resp_msg) = $self->_parse_response_line($line);
-  return 0 unless ($resp_msg eq 'PONG');
+  return 0 unless (defined($resp_msg) && $resp_msg eq 'PONG');
 
   return 1;
 }
-- 
cgit v1.2.3