From: Steve Hay <SteveHay@planit.com>
Date: Wed, 8 Mar 2006 12:15:04 +0000 (+0000)
Subject: Cleanup Archive-Tar temporary test files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d78ab5f9045cb396355b3b32d61ebf3af1aa2028;p=p5sagit%2Fp5-mst-13.2.git

Cleanup Archive-Tar temporary test files

I've done this twice before already (changes #25043 and #26785),
but it keeps getting accidentally removed. Third time lucky?
p4raw-link: @25043 on //depot/perl: d2f9954da5cf024584e2642e8a40c50dd202ef16

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

diff --git a/lib/Archive/Tar.pm b/lib/Archive/Tar.pm
index 536336a..2b4a512 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.29";
+$VERSION            = "1.29_01";
 $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 a5d7617..c717a8f 100644
--- a/lib/Archive/Tar/t/02_methods.t
+++ b/lib/Archive/Tar/t/02_methods.t
@@ -706,6 +706,7 @@ sub check_tar_extract {
         like( $content, qr/$econtent/,
                                     "   Contents OK" );
 
+        close $fh;
         $NO_UNLINK or 1 while unlink $path;
 
         ### alternate extract path tests