file_open should close if fstat fails

diff --git a/libarchive/archive_write_open_filename.c b/libarchive/archive_write_open_filename.c
index 7d0f9bde1dbb2a59729cbdea7ffab90ec88e6414..430de21fde14e4d9f1aef8958fe17fa18d7bcd1a 100644 (file)
--- a/libarchive/archive_write_open_filename.c
+++ b/libarchive/archive_write_open_filename.c
@@ -191,6 +191,8 @@ file_open(struct archive *a, void *client_data)
                        archive_set_error(a, errno, "Couldn't stat '%s'", mbs);
                else
                        archive_set_error(a, errno, "Couldn't stat '%ls'", wcs);
+               close(mine->fd);
+               mine->fd = -1;
                return (ARCHIVE_FATAL);
        }