diff options
| author | cebka@lenovo-laptop <cebka@lenovo-laptop> | 2010-03-12 20:55:09 +0300 |
|---|---|---|
| committer | cebka@lenovo-laptop <cebka@lenovo-laptop> | 2010-03-12 20:55:09 +0300 |
| commit | beac9f2f7609c592758427f833466caabe8c4b71 (patch) | |
| tree | 4df7ffbfb9b4ac0a1d866044a592e9ec2b317553 /perl | |
| parent | 7e2548c3d8636c0aa6c9c511b30bb7973d2de138 (diff) | |
| download | rspamd-beac9f2f7609c592758427f833466caabe8c4b71.tar.gz rspamd-beac9f2f7609c592758427f833466caabe8c4b71.zip | |
* use -> require
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Mail/Rspamd/Client.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm index 7a94e6e7b..be4fa754c 100644 --- a/perl/lib/Mail/Rspamd/Client.pm +++ b/perl/lib/Mail/Rspamd/Client.pm @@ -123,8 +123,8 @@ sub make_ssl_socket { my ($host, $port) = @_; eval { - use IO::Socket::SSL; - } or $self->{error} = "IO::Socket::SSL required for imaps"; + require IO::Socket::SSL; + } or$self->{error} = "IO::Socket::SSL required for imaps"; return IO::Socket::SSL->new("$host:$port"); } @@ -1196,7 +1196,7 @@ sub process_imap { if (!$password) { eval { - use Term::ReadKey; + require Term::ReadKey; $self->{error} = "Enter IMAP password: "; ReadMode 'noecho'; $password = ReadLine 0; |