Change argument of open_port/2 to string in order to shut up the dialyzer

diff --git a/src/ejabberd_app.erl b/src/ejabberd_app.erl
index fc60c8b997448a81fef9e65cd2e8b3fdfaa69649..32b4b90731f49416c10d9332804f9813be854da6 100644 (file)
--- a/src/ejabberd_app.erl
+++ b/src/ejabberd_app.erl
@@ -110,7 +110,7 @@ init() ->
        ok -> ok;
        {error, already_loaded} -> ok
     end,
-    Port = open_port({spawn, expat_erl}, [binary]),
+    Port = open_port({spawn, "expat_erl"}, [binary]),
     loop(Port).
 
 

diff --git a/src/ejabberd_zlib/ejabberd_zlib.erl b/src/ejabberd_zlib/ejabberd_zlib.erl
index 9d90a0dc51133d23ccadd21283d31f8b6f2742ad..dbfd57a0782a7ada62a967ff15cc187b63f9acc9 100644 (file)
--- a/src/ejabberd_zlib/ejabberd_zlib.erl
+++ b/src/ejabberd_zlib/ejabberd_zlib.erl
@@ -63,7 +63,7 @@ init([]) ->
        ok -> ok;
        {error, already_loaded} -> ok
     end,
-    Port = open_port({spawn, ejabberd_zlib_drv}, [binary]),
+    Port = open_port({spawn, "ejabberd_zlib_drv"}, [binary]),
     {ok, Port}.
 
 
@@ -99,7 +99,7 @@ enable_zlib(SockMod, Socket) ->
        ok -> ok;
        {error, already_loaded} -> ok
     end,
-    Port = open_port({spawn, ejabberd_zlib_drv}, [binary]),
+    Port = open_port({spawn, "ejabberd_zlib_drv"}, [binary]),
     {ok, #zlibsock{sockmod = SockMod, socket = Socket, zlibport = Port}}.
 
 disable_zlib(#zlibsock{sockmod = SockMod, socket = Socket, zlibport = Port}) ->

diff --git a/src/mod_irc/iconv.erl b/src/mod_irc/iconv.erl
index d80db78ac68055acb1cf91c5fc987c6b6f51e211..dde4d7e8d5a0058b9837f097b029b0219576e5e0 100644 (file)
--- a/src/mod_irc/iconv.erl
+++ b/src/mod_irc/iconv.erl
@@ -52,7 +52,7 @@ init([]) ->
        ok -> ok;
        {error, already_loaded} -> ok
     end,
-    Port = open_port({spawn, iconv_erl}, []),
+    Port = open_port({spawn, "iconv_erl"}, []),
     ets:new(iconv_table, [set, public, named_table]),
     ets:insert(iconv_table, {port, Port}),
     {ok, Port}.

diff --git a/src/sha.erl b/src/sha.erl
index 5a2ed3f1d9902323addcde1159ccd08756659627..33a82b8896c07ca1f78f6a57a4b0a5cfbf390507 100644 (file)
--- a/src/sha.erl
+++ b/src/sha.erl
@@ -47,7 +47,7 @@ start() ->
          end,
     case Res of
        ok ->
-           Port = open_port({spawn, ?DRIVER}, [binary]),
+           Port = open_port({spawn, atom_to_list(?DRIVER)}, [binary]),
            register(?DRIVER, Port);
        {error, Reason} ->
            ?CRITICAL_MSG("unable to load driver '~s': ~s",

diff --git a/src/stringprep/stringprep.erl b/src/stringprep/stringprep.erl
index 9db6d2847b7ac08eef99439e03f082bca86e51f5..e14bfca17f1ab9617907d8e804b55ff28f5237f4 100644 (file)
--- a/src/stringprep/stringprep.erl
+++ b/src/stringprep/stringprep.erl
@@ -60,7 +60,7 @@ init([]) ->
        ok -> ok;
        {error, already_loaded} -> ok
     end,
-    Port = open_port({spawn, stringprep_drv}, []),
+    Port = open_port({spawn, "stringprep_drv"}, []),
     register(?STRINGPREP_PORT, Port),
     {ok, Port}.
 

diff --git a/src/tls/tls.erl b/src/tls/tls.erl
index 967cf9249998bb31541eff5e385a3c7fe5f2be9b..dfb9d23067a3547659d6b704cea5c6c7f60a1884 100644 (file)
--- a/src/tls/tls.erl
+++ b/src/tls/tls.erl
@@ -84,7 +84,7 @@ init([]) ->
        ok -> ok;
        {error, already_loaded} -> ok
     end,
-    Port = open_port({spawn, tls_drv}, [binary]),
+    Port = open_port({spawn, "tls_drv"}, [binary]),
     Res = port_control(Port, ?SET_CERTIFICATE_FILE_ACCEPT, "./ssl.pem" ++ [0]),
     case Res of
        <<0>> ->
@@ -130,7 +130,7 @@ tcp_to_tls(TCPSocket, Options) ->
                ok -> ok;
                {error, already_loaded} -> ok
            end,
-           Port = open_port({spawn, tls_drv}, [binary]),
+           Port = open_port({spawn, "tls_drv"}, [binary]),
            Flags =
                case lists:member(verify_none, Options) of
                    true ->
@@ -267,7 +267,7 @@ test() ->
        ok -> ok;
        {error, already_loaded} -> ok
     end,
-    Port = open_port({spawn, tls_drv}, [binary]),
+    Port = open_port({spawn, "tls_drv"}, [binary]),
     ?PRINT("open_port: ~p~n", [Port]),
     PCRes = port_control(Port, ?SET_CERTIFICATE_FILE_ACCEPT,
                         "./ssl.pem" ++ [0]),

diff --git a/src/xml_stream.erl b/src/xml_stream.erl
index 1deb8936ef785008a692a413e156acdbd229fc8c..205945fce8e59950b5a16a309815fb1f3870e544 100644 (file)
--- a/src/xml_stream.erl
+++ b/src/xml_stream.erl
@@ -99,7 +99,7 @@ new(CallbackPid) ->
     new(CallbackPid, infinity).
 
 new(CallbackPid, MaxSize) ->
-    Port = open_port({spawn, expat_erl}, [binary]),
+    Port = open_port({spawn, "expat_erl"}, [binary]),
     #xml_stream_state{callback_pid = CallbackPid,
                      port = Port,
                      stack = [],
@@ -140,7 +140,7 @@ close(#xml_stream_state{port = Port}) ->
 
 
 parse_element(Str) ->
-    Port = open_port({spawn, expat_erl}, [binary]),
+    Port = open_port({spawn, "expat_erl"}, [binary]),
     Res = port_control(Port, ?PARSE_FINAL_COMMAND, Str),
     port_close(Port),
     process_element_events(binary_to_term(Res)).