From 0568a0ea0f8bf115b639589f060f62d0435a956a Mon Sep 17 00:00:00 2001
From: Shunichi Shinohara <shino.shun@gmail.com>
Date: Fri, 29 Apr 2011 02:55:39 +0900
Subject: Fix file descriptor leak

File descriptors to import cover data are left opened.
When we export and import cover data many times,
leaked descriptors cause an error.
---
 lib/tools/src/cover.erl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/tools/src/cover.erl b/lib/tools/src/cover.erl
index 73a736f0e8..905ad895c9 100644
--- a/lib/tools/src/cover.erl
+++ b/lib/tools/src/cover.erl
@@ -662,6 +662,7 @@ main_process_loop(State) ->
 		    Imported = do_import_to_table(Fd,File,
 						  State#main_state.imported),
 		    reply(From, ok),
+		    file:close(Fd),
 		    main_process_loop(State#main_state{imported=Imported});
 		{error,Reason} ->
 		    reply(From, {error, {cant_open_file,File,Reason}}),
-- 
cgit v1.2.3