Adding debug statements closer to open_port

This commit is contained in:
Dave Smith 2013-06-25 15:59:05 -06:00
parent 4b642bf916
commit 490d00f0d6

View file

@ -108,6 +108,7 @@ sh(Command0, Options0) ->
Command = patch_on_windows(Command0, proplists:get_value(env, Options, [])), Command = patch_on_windows(Command0, proplists:get_value(env, Options, [])),
PortSettings = proplists:get_all_values(port_settings, Options) ++ PortSettings = proplists:get_all_values(port_settings, Options) ++
[exit_status, {line, 16384}, use_stdio, stderr_to_stdout, hide], [exit_status, {line, 16384}, use_stdio, stderr_to_stdout, hide],
?DEBUG("Port Cmd: ~p\nPort Opts: ~p\n", [Command, PortSettings]),
Port = open_port({spawn, Command}, PortSettings), Port = open_port({spawn, Command}, PortSettings),
case sh_loop(Port, OutputHandler, []) of case sh_loop(Port, OutputHandler, []) of