From bf2a898a5f299f5877614b370da3f2ec40e3efc0 Mon Sep 17 00:00:00 2001
From: "Tomas V.V.Cox" <cox@php.net>
Date: Fri, 26 Jul 2002 15:39:16 +0000
Subject: In theory this will fix a problem in Window trying to delete a not
 closed file

#if so, other fixes like that may be needed
---
 pear/Archive/Tar.php | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pear/Archive/Tar.php b/pear/Archive/Tar.php
index 3796ae2451..c2a89c7b3c 100644
--- a/pear/Archive/Tar.php
+++ b/pear/Archive/Tar.php
@@ -880,8 +880,10 @@ class Archive_Tar extends PEAR
       else
         $v_binary_data = @fread($this->_file, 512);
 
-      if (!$this->_readHeader($v_binary_data, $v_header))
+      if (!$this->_readHeader($v_binary_data, $v_header)) {
+        fclose($this->_file);
         return false;
+      }
 
       if ($v_header['filename'] == '')
         continue;
-- 
cgit v1.2.1