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

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).
 
 

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}) ->

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}.

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",

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}.
 

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]),

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)).