From 48125b0d124bc668b971b1f5df5a3c39798cfcf9 Mon Sep 17 00:00:00 2001
From: Even Rouault <even.rouault@spatialys.com>
Date: Mon, 31 Jul 2017 17:35:10 +0200
Subject: [PATCH] src/bin/jpwl/convert.c: add missing fclose() in error code
 path (suggested by maddin200, #976)

---
 src/bin/jpwl/convert.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/bin/jpwl/convert.c b/src/bin/jpwl/convert.c
index 8650ae9c..7343528b 100644
--- a/src/bin/jpwl/convert.c
+++ b/src/bin/jpwl/convert.c
@@ -1524,6 +1524,7 @@ int imagetopgx(opj_image_t * image, const char *outfile)
                 res = fwrite(&byte, 1, 1, fdest);
                 if (res < 1) {
                     fprintf(stderr, "failed to write 1 byte for %s\n", name);
+                    fclose(fdest);
                     return 1;
                 }
             }