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 (file)
--- 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 (file)
--- 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