Tests: hide startup warnings about deprecated ssl.
diff --git a/mail_ssl.t b/mail_ssl.t index 1b4b031..5d200e5 100644 --- a/mail_ssl.t +++ b/mail_ssl.t
@@ -161,7 +161,10 @@ my $ctx = Net::SSLeay::CTX_new() or die("Failed to create SSL_CTX $!"); $t->write_file('password', 'localhost'); + +open OLDERR, ">&", \*STDERR; close STDERR; $t->run(); +open STDERR, ">&", \*OLDERR; ###############################################################################
diff --git a/ssl.t b/ssl.t index 614bf49..aa75dbb 100644 --- a/ssl.t +++ b/ssl.t
@@ -190,7 +190,9 @@ SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(), SSL_session_cache_size => 100); +open OLDERR, ">&", \*STDERR; close STDERR; $t->run(); +open STDERR, ">&", \*OLDERR; ###############################################################################