diff options
| author | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2010-07-20 19:54:34 +0400 |
|---|---|---|
| committer | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2010-07-20 19:54:34 +0400 |
| commit | a4bce00dc4be27f4418f45c324362d30a6023469 (patch) | |
| tree | ede9d27165e6c40280502435545dbe2e3341747d /perl | |
| parent | 8bd40ccfcdccc717079d306e17d5d9d47ed85de6 (diff) | |
| download | rspamd-a4bce00dc4be27f4418f45c324362d30a6023469.tar.gz rspamd-a4bce00dc4be27f4418f45c324362d30a6023469.zip | |
* Some optimizations to client library
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Mail/Rspamd/Client.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm index eb92cada4..789b3187d 100644 --- a/perl/lib/Mail/Rspamd/Client.pm +++ b/perl/lib/Mail/Rspamd/Client.pm @@ -856,7 +856,7 @@ sub _do_rspamc_command { my %metrics; my ($in, $res); - my $msgsize = length($msg.$EOL); + my $msgsize = length($msg); local $SIG{PIPE} = 'IGNORE'; @@ -882,7 +882,7 @@ sub _do_rspamc_command { } syswrite $remote, $EOL; - if (! $self->_write_message($remote, $msg, length($msg))) { + if (! $self->_write_message($remote, $msg, $msgsize)) { my %r = ( error => 'error writing message to rspamd', error_code => 502, @@ -891,7 +891,7 @@ sub _do_rspamc_command { return \%r; } - syswrite $remote, $EOL; + #syswrite $remote, $EOL; unless ($self->_get_io_readiness($remote, 0)) { close $remote; |