From: Steve Hay <SteveHay@planit.com>
Date: Wed, 11 Jan 2006 14:07:47 +0000 (+0000)
Subject: Clean up temp files/dirs left by Archive-Tar tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f17da991d5d231186716de62f58f20d664f2872c;p=p5sagit%2Fp5-mst-13.2.git

Clean up temp files/dirs left by Archive-Tar tests

Part of this reinstates change 25043 which was mistakenly removed
by change 25312

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

diff --git a/lib/Archive/Tar/t/02_methods.t b/lib/Archive/Tar/t/02_methods.t
index 99642f9..c898a25 100644
--- a/lib/Archive/Tar/t/02_methods.t
+++ b/lib/Archive/Tar/t/02_methods.t
@@ -684,6 +684,7 @@ sub check_tar_extract {
         like( $content, qr/$econtent/,
                                     "   Contents OK" );
 
+        close $fh;
         $NO_UNLINK or 1 while unlink $path;
 
         ### alternate extract path tests 
diff --git a/lib/Archive/Tar/t/99_clean.t b/lib/Archive/Tar/t/99_clean.t
index 4150ccf..216cab2 100644
--- a/lib/Archive/Tar/t/99_clean.t
+++ b/lib/Archive/Tar/t/99_clean.t
@@ -3,14 +3,17 @@ use File::Spec;
 
 BEGIN {
     if ($ENV{PERL_CORE}) {
-	chdir '../lib/Archive/Tar/t/src' if -d '../lib/Archive/Tar/t/src';
+	chdir '../lib/Archive/Tar/t' if -d '../lib/Archive/Tar/t';
     }
 }
 
 for my $d (qw(long short)) { 
     for my $f (qw(b bar.tar foo.tgz)) {
-	unlink File::Spec->catfile($d, $f);
+	unlink File::Spec->catfile('src', $d, $f);
     }
+    rmdir File::Spec->catdir('src', $d);
 }
 
+rmdir 'src';
+
 print "1..1\nok 1 - cleanup done\n";