anchor.diff:      end.
   
   is_fips(openssl) ->
  -    VersionStr = os:cmd("openssl version"),
  +    VersionStr = portable_cmd("openssl",["version"]),
       case re:split(VersionStr, "fips") of
   	[_] ->
   	    false;
  
positive.code:     after 1000 ->
              true                        
      end.
  
  ssl_options(Option, Config) when is_atom(Option) ->
      ProtocolOpts = proplists:get_value(protocol_opts, Config, []),
  
negative.code:     end.
  
  is_ipv6_supported() ->
      case portable_cmd("openssl", ["version"]) of
          "OpenSSL 0.9.8" ++ _ -> % Does not support IPv6
              false;
          "OpenSSL 1.0" ++ _ ->   % Does not support IPv6
  