Fix descriptor leak.

* src/grecs-lex.l (yywrap): Close yyin.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/grecs-lex.l b/src/grecs-lex.l
index 52a15ef..63f2225 100644
--- a/src/grecs-lex.l
+++ b/src/grecs-lex.l
@@ -187,9 +187,10 @@ pid_t grecs_preproc_pid;
 int
 yywrap()
 {
-        if (yyin)
+        if (yyin) {
                 grecs_preproc_extrn_shutdown(grecs_preproc_pid);
-        else
+                fclose(yyin);
+        } else
                 grecs_preproc_done();
         grecs_current_locus_point.file = NULL;
         return 1;