From fdab4fc061cda060fd23760e00cab439ad503568 Mon Sep 17 00:00:00 2001
From: Simon MacMullen <simon@lshift.net>
Date: Thu, 27 Nov 2008 14:24:14 +0000
Subject: [PATCH] Close the file after reading it.

---
 src/rabbit_memsup_linux.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/rabbit_memsup_linux.erl b/src/rabbit_memsup_linux.erl
index 5e998dcebb..0d666999b0 100644
--- a/src/rabbit_memsup_linux.erl
+++ b/src/rabbit_memsup_linux.erl
@@ -127,7 +127,8 @@ code_change(_OldVsn, State, _Extra) ->
 %% eof.
 read_proc_file(File) ->
     {ok, IoDevice} = file:open(File, [read, raw]),
-    read_proc_file(IoDevice, []).
+    read_proc_file(IoDevice, []),
+    file:close(IoDevice).
     
 read_proc_file(IoDevice, Acc) ->
     case file:read(IoDevice, ?BUFFER_SIZE) of