From e925ce2537a2fedd76b9796f5c97c30008c05c8c Mon Sep 17 00:00:00 2001
From: "cebka@lenovo-laptop" <cebka@lenovo-laptop>
Date: Fri, 12 Mar 2010 21:01:42 +0300
Subject: [PATCH] * More fixes about require

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

diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index be4fa754c..f026de8cc 100644
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -124,6 +124,7 @@ sub make_ssl_socket {
 	
 	eval {
 		require IO::Socket::SSL;
+		IO::Socket::SSL->import(LIST);
 	} or$self->{error} = "IO::Socket::SSL required for imaps";
 
 	return IO::Socket::SSL->new("$host:$port");
@@ -1197,11 +1198,12 @@ sub process_imap {
 	if (!$password) {
 		eval {
 			require Term::ReadKey;
+			Term::ReadKey->import( LIST );
 			$self->{error} = "Enter IMAP password: ";
-			ReadMode 'noecho';
-			$password = ReadLine 0;
+			Term::ReadKey->ReadMode('noecho');
+			$password = Term::ReadKey->ReadLine(0);
 			chomp $password;
-			ReadMode 'normal';
+			Term::ReadKey->ReadMode('normal');
 			$self->{error} = "\n";
 		} or die "cannot get password. Check that Term::ReadKey is installed";
 	}
-- 
2.39.5