From 2da38637a507e35d4b2ea9d4aba1983ea28c2898 Mon Sep 17 00:00:00 2001
From: Andreas Schultz <aschultz@tpip.net>
Date: Tue, 19 Feb 2013 17:31:54 +0100
Subject: SSL: replace sha256_mac() tests with crypto:algorithms()

---
 lib/ssl/src/ssl_record.erl | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

(limited to 'lib/ssl/src/ssl_record.erl')

diff --git a/lib/ssl/src/ssl_record.erl b/lib/ssl/src/ssl_record.erl
index 173b9611c6..5101beeac8 100644
--- a/lib/ssl/src/ssl_record.erl
+++ b/lib/ssl/src/ssl_record.erl
@@ -704,12 +704,4 @@ mac_hash({3, N} = Version, MacAlg, MacSecret, SeqNo, Type, Length, Fragment)
 		      Length, Fragment).
 
 sufficient_tlsv1_2_crypto_support() ->
-    Data = "Sampl",
-    Data2 = "e #1",
-    Key = <<0,1,2,3,16,17,18,19,32,33,34,35,48,49,50,51,4,5,6,7,20,21,22,23,36,37,38,39,
-	    52,53,54,55,8,9,10,11,24,25,26,27,40,41,42,43,56,57,58,59>>,
-    try
-	crypto:sha256_mac(Key, lists:flatten([Data, Data2])),
-	true
-    catch _:_ -> false
-    end.
+    proplists:get_bool(sha256, crypto:algorithms()).
-- 
cgit v1.2.1