* src/lread.c (openp): Fix previous change (don't leak file descriptors)

[gnu-emacs] / src / lread.c

diff --git a/src/lread.c b/src/lread.c
index c24af0cf9cde0d1530ce0f5d53f47d70c424d6b5..b8b9189719bc95252cf1939a029197787904d574 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1634,6 +1634,7 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes,
                           save_mtime = mtime;
                           save_string = string;
                         }
+                      else emacs_close (fd);
                     }
                   else
                     {