# HG changeset patch
# User rubidium <rubidium@openttd.org>
# Date 2013-11-24 15:02:05
# Node ID bb451424e565f1f4e7d38ade463e677e77ddeece
# Parent  09fb379ed85bd02463a0f9762a5aae65bfb94584

(svn r26087) -Fix: file descriptor leak when finding a corrupt tar

diff --git a/src/fileio.cpp b/src/fileio.cpp
--- a/src/fileio.cpp
+++ b/src/fileio.cpp
@@ -781,6 +781,7 @@ bool TarScanner::AddFile(const char *fil
 			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;
 		}