# HG changeset patch # User Sergey Kandaurov # Date 1445959582 -10800 # Node ID 63d1b7cb974a3fa725fbf126bb50f6458735c9da # Parent 80e17d44088cc1725619cc696c50687363d8888f Tests: fixed IO::Socket::SSL options in mail_imap_ssl.t. diff --git a/mail_imap_ssl.t b/mail_imap_ssl.t --- a/mail_imap_ssl.t +++ b/mail_imap_ssl.t @@ -142,9 +142,9 @@ foreach my $name ('1.example.com', '2.ex my $cred = encode_base64("\0test\@example.com\0secret", ''); my %ssl = ( - 'SSL' => 1, - 'SSL_verify_mode' => 'IO::Socket::SSL::SSL_VERIFY_NONE()', - 'SSL_error_trap' => 'sub { die $_[1] }', + SSL => 1, + SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(), + SSL_error_trap => sub { die $_[1] }, ); # no ssl connection