Properly free and close when exiting write_hierarchy() on failed

archive_read_next_header2().

Fixes #794

diff --git a/tar/write.c b/tar/write.c
index 2d076f488b5591b742ecfef16780b43204af4a10..da5a128254faa40010617f580e00645211eb98cc 100644 (file)
--- a/tar/write.c
+++ b/tar/write.c
@@ -886,6 +886,8 @@ write_hierarchy(struct bsdtar *bsdtar, struct archive *a, const char *path)
                            "%s", archive_error_string(disk));
                        if (r == ARCHIVE_FATAL || r == ARCHIVE_FAILED) {
                                bsdtar->return_value = 1;
+                               archive_entry_free(entry);
+                               archive_read_close(disk);
                                return;
                        } else if (r < ARCHIVE_WARN)
                                continue;