diff options
| author | cebka@lenovo-laptop <cebka@lenovo-laptop> | 2010-03-12 21:01:42 +0300 |
|---|---|---|
| committer | cebka@lenovo-laptop <cebka@lenovo-laptop> | 2010-03-12 21:01:42 +0300 |
| commit | e925ce2537a2fedd76b9796f5c97c30008c05c8c (patch) | |
| tree | 5f6e9556b0e2510c9324dbeb9f1479928a7c181c /perl | |
| parent | beac9f2f7609c592758427f833466caabe8c4b71 (diff) | |
| download | rspamd-e925ce2537a2fedd76b9796f5c97c30008c05c8c.tar.gz rspamd-e925ce2537a2fedd76b9796f5c97c30008c05c8c.zip | |
* More fixes about require
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Mail/Rspamd/Client.pm | 8 |
1 files 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"; } |