Author: Sergei Golovan
Description: Makes the old SSL implementation, which is more reliable
 then the new one, the default one
Forwarded: not-needed
Last-updated: Sun, 17 Oct 2010 10:21:08 +0400

--- erlang-14.a-dfsg.orig/lib/ssl/src/ssl.erl
+++ erlang-14.a-dfsg/lib/ssl/src/ssl.erl
@@ -105,7 +105,7 @@
     connect(Address, Port, Options, infinity).
 
 connect(Address, Port, Options0, Timeout) ->
-    case proplists:get_value(ssl_imp, Options0, new) of
+    case proplists:get_value(ssl_imp, Options0, old) of
         new ->
             new_connect(Address, Port, Options0, Timeout);
         old ->
@@ -128,7 +128,7 @@
 listen(_Port, []) ->
     {error, enooptions};
 listen(Port, Options0) ->
-    case proplists:get_value(ssl_imp, Options0, new) of
+    case proplists:get_value(ssl_imp, Options0, old) of
 	new ->
 	    new_listen(Port, Options0);
 	old ->