From c705d3238e166ad615010fd28fab6d5960510154 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 28 Feb 1997 17:12:31 -0800
Subject: [PATCH] bug (by grubba) removed

Rev: src/modules/files/efuns.c:1.19
---
 src/modules/files/efuns.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/modules/files/efuns.c b/src/modules/files/efuns.c
index 27e6c980f6..3fe7a3ba8a 100644
--- a/src/modules/files/efuns.c
+++ b/src/modules/files/efuns.c
@@ -198,6 +198,12 @@ void f_get_dir(INT32 args)
 #endif /* HAVE_SOLARIS_READDIR_R */
 		 + 1);
 
+    if(!tmp)
+    {
+      closedir(dir);
+      error("Out of memory.\n");
+    }
+
     while(1)
     {
       int e;
@@ -278,7 +284,6 @@ void f_get_dir(INT32 args)
     closedir(dir);
     THREADS_DISALLOW();
     a=aggregate_array(sp-save_sp);
-    free((char *)dir);
   }
 #else
   dir=opendir(path);
-- 
GitLab