File 2474-ssl-Only-run-sslv2-reject-tests-on-old-Ope... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2474-ssl-Only-run-sslv2-reject-tests-on-old-OpenSSL-versi.patch of Package erlang

From d12052519312e9f4e3bb189e57322e3097497105 Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Tue, 9 May 2017 16:29:49 +0200
Subject: [PATCH 2/2] ssl: Only run sslv2 reject tests on old OpenSSL version

---
 lib/ssl/test/ssl_test_lib.erl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/ssl/test/ssl_test_lib.erl b/lib/ssl/test/ssl_test_lib.erl
index a59da1b65..3e89851c9 100644
--- a/lib/ssl/test/ssl_test_lib.erl
+++ b/lib/ssl/test/ssl_test_lib.erl
@@ -1394,6 +1394,18 @@ portable_open_port(Exe, Args) ->
     open_port({spawn_executable, AbsPath}, 
 	      [{args, Args}, stderr_to_stdout]). 
 
+supports_ssl_tls_version(sslv2 = Version) ->
+    case os:cmd("openssl version") of
+	"OpenSSL 1" ++ _ -> 
+	    false;
+	_ ->
+            VersionFlag = version_flag(Version),
+            Exe = "openssl",
+            Args = ["s_client", VersionFlag],
+            Port = ssl_test_lib:portable_open_port(Exe, Args),
+            do_supports_ssl_tls_version(Port)
+    end;
+
 supports_ssl_tls_version(Version) ->
     VersionFlag = version_flag(Version),
     Exe = "openssl",
-- 
2.13.0

Places

File 2474-ssl-Only-run-sslv2-reject-tests-on-old-OpenSSL-versi.patch of Package erlang

Places