From 5667d23a37844c404561af9c7e30ab3d16d0e8a8 Mon Sep 17 00:00:00 2001
From: beveloper <beveloper@nowhere.fake>
Date: Fri, 12 Jul 2002 17:47:38 +0000
Subject: [PATCH] fixed a bug

git-svn-id: file:///srv/svn/repos/haiku/trunk/current@142 a95241bf-73f2-0310-859d-f6bbb57e9c96
---
 src/kernel/core/module.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/kernel/core/module.c b/src/kernel/core/module.c
index 10e0869961..f6cf239ce9 100644
--- a/src/kernel/core/module.c
+++ b/src/kernel/core/module.c
@@ -431,8 +431,10 @@ static int recurse_directory(const char *path, const char *match)
 		return -1;
 
 	dirent = kmalloc(bufferSize);
-	if (!dirent)
+	if (!dirent) {
+		sys_close(dir);
 		return -1;
+	}
 
 	/* loop until we have a match or we run out of entries */
 	while (res <= 0) {