This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cleanup Archive-Tar temporary test files
authorSteve Hay <SteveHay@planit.com>
Wed, 8 Mar 2006 12:15:04 +0000 (12:15 +0000)
committerSteve Hay <SteveHay@planit.com>
Wed, 8 Mar 2006 12:15:04 +0000 (12:15 +0000)
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

lib/Archive/Tar.pm
lib/Archive/Tar/t/02_methods.t

index 536336a..2b4a512 100644 (file)
@@ -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;
index a5d7617..c717a8f 100644 (file)
@@ -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