From: Steve Hay <SteveHay@planit.com>
Date: Fri, 1 Jul 2005 16:33:42 +0000 (+0000)
Subject: Make Archive::Tar clean up its test files on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2f9954da5cf024584e2642e8a40c50dd202ef16;p=p5sagit%2Fp5-mst-13.2.git

Make Archive::Tar clean up its test files on Win32

(The old "can't delete an open file on Win32" chestnut again)

p4raw-id: //depot/perl@25043
---

diff --git a/lib/Archive/Tar.pm b/lib/Archive/Tar.pm
index ecb6aba..f8e817b 100644
--- a/lib/Archive/Tar.pm
+++ b/lib/Archive/Tar.pm
@@ -14,7 +14,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD
 $DEBUG              = 0;
 $WARN               = 1;
 $FOLLOW_SYMLINK     = 0;
-$VERSION            = "1.24_01";
+$VERSION            = "1.24_02";
 $CHOWN              = 1;
 $CHMOD              = 1;
 $DO_NOT_USE_PREFIX  = 0;
diff --git a/lib/Archive/Tar/t/02_methods.t b/lib/Archive/Tar/t/02_methods.t
index 82f3777..3721025 100644
--- a/lib/Archive/Tar/t/02_methods.t
+++ b/lib/Archive/Tar/t/02_methods.t
@@ -680,6 +680,7 @@ sub check_tar_extract {
         like( $content, qr/$econtent/,
                                     "   Contents OK" );
 
+        close $fh;
         unlink $path unless $NO_UNLINK;
 
         ### alternate extract path tests