diff options
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) { |