X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/1f41ee56ace98fe0d5f288c97ddb73870befed45..09af58633c2a83b61dee86bcf3794122b101671a:/src/lread.c

diff --git a/src/lread.c b/src/lread.c
index c24af0cf9c..b8b9189719 100644
--- 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
                     {