anchor.diff:  check_sane_openssl_renegotaite(Config, Version) when  Version == 'tlsv1';
                                                         Version == 'tlsv1.1';
                                                         Version == 'tlsv1.2' ->
  -    case os:cmd("openssl version") of     
  +    case portable_cmd("openssl", ["version"]) of
   	"OpenSSL 1.0.1c" ++ _ ->
   	    {skip, "Known renegotiation bug in OpenSSL"};
   	"OpenSSL 1.0.1b" ++ _ ->
  
positive.code:     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;
          %% Appears to be broken
          "OpenSSL 0.9.8.o" ++ _ -> 
              false;
  	_ ->
              VersionFlag = version_flag(Version),
              Exe = "openssl",
              Args = ["s_client", VersionFlag],
              [{trap_exit, Trap}] = process_info(self(), [trap_exit]),
              process_flag(trap_exit, true),
              Port = ssl_test_lib:portable_open_port(Exe, Args),
              Bool = do_supports_ssl_tls_version(Port, ""),
              consume_port_exit(Port),
              process_flag(trap_exit, Trap),
              Bool
      end;
  
  supports_ssl_tls_version(Version) ->
      VersionFlag = version_flag(Version),
      Exe = "openssl",
  
negative.code:     after 1000 ->
              true                        
      end.
  
  ubuntu_legacy_support() -> 
      case os:type() of
          {unix, linux} ->
              Issue = os:cmd("more /etc/issue"),
              case re:run(Issue, "Ubuntu 1[6-9]+", [global]) of
                  nomatch ->
                      true;
                  _ ->
                      false
              end;
          _ ->
              true
      end.       
  
  ssl_options(Option, Config) when is_atom(Option) ->
      ProtocolOpts = proplists:get_value(protocol_opts, Config, []),
  