summaryrefslogtreecommitdiff
path: root/lib/Archive
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2005-07-01 16:33:42 +0000
committerSteve Hay <SteveHay@planit.com>2005-07-01 16:33:42 +0000
commitd2f9954da5cf024584e2642e8a40c50dd202ef16 (patch)
tree2ab3eea43ff3a2ae11692cd00c4f6e7a015c7d85 /lib/Archive
parentfd617465265ed0cd97256c819ae8e3e4cde70989 (diff)
downloadperl-d2f9954da5cf024584e2642e8a40c50dd202ef16.tar.gz
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
Diffstat (limited to 'lib/Archive')
-rw-r--r--lib/Archive/Tar.pm2
-rw-r--r--lib/Archive/Tar/t/02_methods.t1
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/Archive/Tar.pm b/lib/Archive/Tar.pm
index ecb6aba008..f8e817b2ae 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 82f3777fd6..3721025d83 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