# HG changeset patch # User Sergey Kandaurov # Date 1684845001 -14400 # Node ID 884e898b9fe75ae287ddf47469d7d38933393c44 # Parent 5c50786e5da914ea0c8e71fdd82e3959e643f8cb Tests: unbreak stream_ssl_variables.t with old IO::Socket::SSL. Do not clobber a stream object in test_tls13(). diff --git a/stream_ssl_variables.t b/stream_ssl_variables.t --- a/stream_ssl_variables.t +++ b/stream_ssl_variables.t @@ -141,7 +141,7 @@ undef $s; ############################################################################### sub test_tls13 { - $s = stream(PeerAddr => '127.0.0.1:' . port(8443), SSL => 1); + my $s = stream(PeerAddr => '127.0.0.1:' . port(8443), SSL => 1); $s->read() =~ /TLSv1.3/; }