From c884a207b6df241e8bf77df0d3e0498eb099a72c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Aug 2022 20:32:49 +0100
Subject: [PATCH] prefork-interp: fixes and tests

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 cprogs/prefork-interp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cprogs/prefork-interp.c b/cprogs/prefork-interp.c
index 7e35087..916fdef 100644
--- a/cprogs/prefork-interp.c
+++ b/cprogs/prefork-interp.c
@@ -304,7 +304,7 @@ static FILE *connect_existing(void) {
   return call_sock;
 
  x_garbage:
-  fclose(call_sock);
+  if (call_sock) fclose(call_sock);
   if (fd >= 0) close(fd);
   return 0;
 }
-- 
2.30.2