ports/security/p5-POE-Component-SSLify/patches/patch-t_renegotiate_client_t

24 lines
1 KiB
Text

Fix sslv3 tests that can't run with LibreSSL
Index: t/renegotiate_client.t
--- t/renegotiate_client.t.orig
+++ t/renegotiate_client.t
@@ -50,8 +50,8 @@ POE::Component::Server::TCP->new
},
ClientPreConnect => sub
{
- eval { SSLify_Options('mylib/example.key', 'mylib/example.crt', 'sslv3') };
- eval { SSLify_Options('../mylib/example.key', '../mylib/example.crt', 'sslv3') } if ($@);
+ eval { SSLify_Options('mylib/example.key', 'mylib/example.crt', 'tlsv1_2') };
+ eval { SSLify_Options('../mylib/example.key', '../mylib/example.crt', 'tlsv1_2') } if ($@);
ok(!$@, "SERVER: SSLify_Options $@");
my $socket = eval { Server_SSLify($_[ARG0]) };
@@ -113,7 +113,7 @@ POE::Component::Client::TCP->new
},
PreConnect => sub
{
- my $ctx = eval { SSLify_ContextCreate(undef, undef, 'sslv3') };
+ my $ctx = eval { SSLify_ContextCreate(undef, undef, 'tlsv1_2') };
ok(!$@, "CLIENT: SSLify_ContextCreate $@");
my $socket = eval { Client_SSLify($_[ARG0], undef, undef, $ctx) };
ok(!$@, "CLIENT: Client_SSLify $@");