From 32b812257da7a72c08a1cc4ebb91b2fec129902a Mon Sep 17 00:00:00 2001
From: "cebka@lenovo-laptop" <cebka@lenovo-laptop>
Date: Mon, 15 Mar 2010 21:12:39 +0300
Subject: * Fix variable name in Client.pm

---
 perl/lib/Mail/Rspamd/Client.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl')

diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index 49413ea59..ee07e446b 100644
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -966,7 +966,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, $input . $EOL;
+            syswrite $remote, $msg . $EOL;
 			unless ($self->_get_io_readiness($remote, 0)) {
 				$res{error} = "Timeout while reading data from socket";
 				$res{error_code} = 501;
@@ -1002,10 +1002,10 @@ sub _do_control_command {
 			return \%res;
 		}
         
-		my $len = length ($input);
+		my $len = length ($msg);
 		$res{error} = "Sending $len bytes...\n";
 		syswrite $remote, "weights $self->{'statfile'} $len" . $EOL;
-		syswrite $remote, $input . $EOL;
+		syswrite $remote, $msg . $EOL;
 		unless ($self->_get_io_readiness($remote, 0)) {
 			$res{error} = "Timeout while reading data from socket";
 			$res{error_code} = 501;
@@ -1040,9 +1040,9 @@ sub _do_control_command {
     }
     elsif ($self->{'command'} =~ /(fuzzy_add|fuzzy_del)/i) {
         if ($self->_auth ($remote)) {
-            my $len = length ($input);
+            my $len = length ($msg);
             syswrite $remote, $self->{'command'} . " $len $self->{'weight'}" . $EOL;
-            syswrite $remote, $input . $EOL;
+            syswrite $remote, $msg . $EOL;
 			unless ($self->_get_io_readiness($remote, 0)) {
 				$res{error} = "Timeout while reading data from socket";
 				$res{error_code} = 501;
-- 
cgit v1.2.3