From 8ce3b753eb9f0adc7dcdf02dd9bc6f6c77abef5a Mon Sep 17 00:00:00 2001
From: Sarah Gilmore <sgilmore@mathworks.com>
Date: Fri, 17 Mar 2023 09:54:32 -0400
Subject: [PATCH] Close file handle on windows when padding/truncating file
 fails

---
 libarchive/archive_write_disk_windows.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libarchive/archive_write_disk_windows.c b/libarchive/archive_write_disk_windows.c
index 70533acf9..0124d4fe8 100644
--- a/libarchive/archive_write_disk_windows.c
+++ b/libarchive/archive_write_disk_windows.c
@@ -1217,6 +1217,8 @@ _archive_write_disk_finish_entry(struct archive *_a)
 		if (la_ftruncate(a->fh, a->filesize) == -1) {
 			archive_set_error(&a->archive, errno,
 			    "File size could not be restored");
+            CloseHandle(a->fh);
+            a->fh = INVALID_HANDLE_VALUE;
 			return (ARCHIVE_FAILED);
 		}
 	}
-- 
2.47.2