Merge branch 'yh/packet_option_for_new_ssl_send' into ccase/r13b04_dev

* yh/packet_option_for_new_ssl_send:
  Fixed ssl:setopts(Socket, binary) which was didn't work for 'new' ssl.
  Fixed bug file cache bug and improved the error messages.
  Allow <c>ssl:listen/2</c> to be called with option {ssl_imp, old}.
  prepend packet size bytes in ssl:send() in new_ssl implementation

OTP-8441  ssl:send/2 ignored packet option, fix provided by YAMASHINA Hio.

          Fixed a file cache bug which caused problems when the same file
          was used for both cert and cacert.

          Allow ssl:listen/2 to be called with option {ssl_imp, old}.

          Fixed ssl:setopts(Socket, binary) which didn't work for 'new'
          ssl..

1 files changed, 8 insertions, 8 deletions

diff --git a/lib/ssl/test/old_ssl_active_SUITE.erl b/lib/ssl/test/old_ssl_active_SUITE.erl
index fc44fa23dd..010596f351 100644
--- a/lib/ssl/test/old_ssl_active_SUITE.erl
+++ b/lib/ssl/test/old_ssl_active_SUITE.erl
@@ -1,19 +1,19 @@
 %%
 %% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 1999-2009. All Rights Reserved.
-%% 
+%%
+%% Copyright Ericsson AB 1999-2010. All Rights Reserved.
+%%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
 %% compliance with the License. You should have received a copy of the
 %% Erlang Public License along with this software. If not, it can be
 %% retrieved online at http://www.erlang.org/.
-%% 
+%%
 %% Software distributed under the License is distributed on an "AS IS"
 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 %% the License for the specific language governing rights and limitations
 %% under the License.
-%% 
+%%
 %% %CopyrightEnd%
 %%
 
@@ -145,16 +145,16 @@ sinit_return_chkclose(Config) when list(Config) ->
     ?line {ok, Host} = inet:gethostname(),
 
     LCmds = [{sockopts, [{backlog, NConns}]},
-	     {sslopts, SsslOpts},
+	     {sslopts, [{ssl_imp, old}|SsslOpts]},
 	     {listen, LPort}, 
 	     wait_sync,
 	     lclose],
     ACmds = [{timeout, Timeout}, 
 	     accept,
-	     {send, DataSize}, {recv, DataSize}, 
+	     {send, DataSize}, {recv, DataSize},
 	     await_close],
     CCmds = [{timeout, Timeout}, 
-	     {sslopts, CsslOpts},
+	     {sslopts, [{ssl_imp, old}|CsslOpts]},
 	     {connect, {Host, LPort}},
 	     {recv, DataSize}, {send, DataSize}, 
 	     close],