Maybe just needs more -quiet.
See patch
--
Paul Evans
=== modified file 't/10connect-openssl.t'
--- t/10connect-openssl.t 2015-01-11 19:44:16 +0000
+++ t/10connect-openssl.t 2015-05-29 18:27:43 +0000
@@ -33,7 +33,7 @@
stdin => $ssl_rd,
stdout => $ssl_wr,
],
- command => [ "openssl", "s_server", "-accept", $port, "-key", "privkey.pem", "-cert", "server.pem" ],
+ command => [ "openssl", "s_server", "-accept", $port, "-key", "privkey.pem", "-cert", "server.pem", "-quiet" ],
on_exit => sub {
my ( $pid, $exitcode ) = @_;
@@ -81,9 +81,6 @@
SSL_verify_mode => 0,
)->get;
-# openssl is noisy; clear any verbose junk it wrote before we connected
-undef @openssl_lines;
-
$sslstream->write( "Send a line\n" );
wait_for { @openssl_lines };
