From 3eecd246eb596b34daa50f23472faa1b1f77c0ee Mon Sep 17 00:00:00 2001
From: rubidium <rubidium@openttd.org>
Date: Sun, 24 Nov 2013 15:02:05 +0000
Subject: [PATCH] (svn r26087) -Fix: file descriptor leak when finding a
 corrupt tar

---
 src/fileio.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/fileio.cpp b/src/fileio.cpp
index a6cb85d748..3bc5cf7680 100644
--- a/src/fileio.cpp
+++ b/src/fileio.cpp
@@ -781,6 +781,7 @@ bool TarScanner::AddFile(const char *filename, size_t basepath_length, const cha
 			if (memcmp(&th, &empty[0], 512) == 0) continue;
 
 			DEBUG(misc, 0, "The file '%s' isn't a valid tar-file", filename);
+			fclose(f);
 			return false;
 		}