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