From: cebka@lenovo-laptop <cebka@lenovo-laptop>
Date: Fri, 12 Mar 2010 18:01:42 +0000 (+0300)
Subject: * More fixes about require
X-Git-Tag: 0.3.0~67
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e925ce2537a2fedd76b9796f5c97c30008c05c8c;p=thirdparty%2Frspamd.git

* More fixes about require
---

diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index be4fa754c6..f026de8cc7 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";
 	}