re #13527 cmd_status should clean up port

mochi · May 21, 2010 · 8700258 · 8700258
1 parent 1712899
commit 8700258
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/mochiweb_util.erl b/src/mochiweb_util.erl
@@ -123,7 +123,9 @@ cmd_string(Argv) ->
 cmd_status(Argv) ->
     Port = cmd_port(Argv, [exit_status, stderr_to_stdout,
                            use_stdio, binary]),
-    cmd_loop(Port, []).
+    try cmd_loop(Port, [])
+    after catch port_close(Port)
+    end.
 
 %% @spec cmd_loop(port(), list()) -> {ExitStatus::integer(), Stdout::binary()}
 %% @doc Accumulate the output and exit status from a port.