diff options
| author | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-11-25 20:32:15 +0300 |
|---|---|---|
| committer | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-11-25 20:32:15 +0300 |
| commit | 893d6efc979fa9e23d93a43c6ab1e46bd9f7da16 (patch) | |
| tree | 6329834dc4c8d7b7e691b36854ef725a677ee0ae /perl | |
| parent | b1e659182cd2eba38ab9de72f47a5ae88d36cd28 (diff) | |
| download | rspamd-893d6efc979fa9e23d93a43c6ab1e46bd9f7da16.tar.gz rspamd-893d6efc979fa9e23d93a43c6ab1e46bd9f7da16.zip | |
* Add initial version of rspamd binlog syncronization client
* Style fix to perl module
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Mail/Rspamd/Client.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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) { |