From d7d9cc3db6e8fb49306abfee503cf89da606f51d Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Tue, 19 Jun 2012 15:55:40 +0200
Subject: ssl: Fix pem cache bug

A general case clause was put before a less general so that the less
general case would never match.
---
 lib/ssl/src/ssl_manager.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/ssl')

diff --git a/lib/ssl/src/ssl_manager.erl b/lib/ssl/src/ssl_manager.erl
index a18cb70e2d..3e947af2c9 100644
--- a/lib/ssl/src/ssl_manager.erl
+++ b/lib/ssl/src/ssl_manager.erl
@@ -107,10 +107,10 @@ connection_init(Trustedcerts, Role) ->
 cache_pem_file(File, DbHandle) ->
     MD5 = crypto:md5(File),
     case ssl_certificate_db:lookup_cached_pem(DbHandle, MD5) of
-	[Content] ->
-	   {ok, Content};
 	[{Content,_}] ->
 	    {ok, Content};
+	[Content] ->
+	   {ok, Content};
 	undefined ->
 	    call({cache_pem, {MD5, File}})
     end.
-- 
cgit v1.2.3