summaryrefslogtreecommitdiffstats
path: root/perl
diff options
context:
space:
mode:
authorcebka@lenovo-laptop <cebka@lenovo-laptop>2010-03-15 21:17:31 +0300
committercebka@lenovo-laptop <cebka@lenovo-laptop>2010-03-15 21:17:31 +0300
commitff726239c58b83fb0823423e853afcae1785506b (patch)
tree1d268dc151f08b46824b9f24ffa2a75ce3a6c801 /perl
parent32b812257da7a72c08a1cc4ebb91b2fec129902a (diff)
downloadrspamd-ff726239c58b83fb0823423e853afcae1785506b.tar.gz
rspamd-ff726239c58b83fb0823423e853afcae1785506b.zip
* Fix learn command (-m is used instead -w)
Diffstat (limited to 'perl')
-rw-r--r--perl/lib/Mail/Rspamd/Client.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index ee07e446b..94e26a093 100644
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -965,7 +965,7 @@ sub _do_control_command {
if ($self->_auth ($remote)) {
my $len = length ($msg);
- syswrite $remote, "learn $self->{statfile} $len -w $self->{weight}" . $EOL;
+ syswrite $remote, "learn $self->{statfile} $len -m $self->{weight}" . $EOL;
syswrite $remote, $msg . $EOL;
unless ($self->_get_io_readiness($remote, 0)) {
$res{error} = "Timeout while reading data from socket";