From 893d6efc979fa9e23d93a43c6ab1e46bd9f7da16 Mon Sep 17 00:00:00 2001
From: Vsevolod Stakhov <vsevolod@rambler-co.ru>
Date: Wed, 25 Nov 2009 20:32:15 +0300
Subject: * Add initial version of rspamd binlog syncronization client * Style
 fix to perl module

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

(limited to 'perl/lib')

diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index fa42bd5a3..32801b9ab 100644
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -153,7 +153,8 @@ sub check {
   
   return undef unless $self->_get_io_readiness($remote, 0);
 		
-  my $in, $res, $offset = 0;
+  my ($in, $res);
+  my $offset = 0;
   do {
 		$res = sysread($remote, $in, 512, $offset);
 		if ($res > 0 && $res < 512) {
-- 
cgit v1.2.3