From 82e3949b8b0152ee8c6dd05bf37520c0f97b669d Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Wed, 11 Aug 2021 11:19:28 +0100
Subject: [PATCH] Repair a file handle leak in wsprd

---
 lib/wsprd/wsprd.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/wsprd/wsprd.c b/lib/wsprd/wsprd.c
index eea667ebb..8d8622761 100644
--- a/lib/wsprd/wsprd.c
+++ b/lib/wsprd/wsprd.c
@@ -677,6 +677,7 @@ unsigned long writec2file(char *c2filename, int trmin, double freq
     }
     nwrite = fwrite(buffer, sizeof(float), 2*45000, fp);
     free(buffer);
+    fclose(fp);
     if( nwrite == 2*45000 ) {
         return nwrite;
     } else {