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

[Steve Hay]

Change 26785 by [EMAIL PROTECTED] on 2006/01/11 14:07:47

        Clean up temp files/dirs left by Archive-Tar tests
        
        Part of this reinstates change 25043 which was mistakenly removed
        by change 25312

Affected files ...

... //depot/perl/lib/Archive/Tar/t/02_methods.t#8 edit
... //depot/perl/lib/Archive/Tar/t/99_clean.t#4 edit

Differences ...

==== //depot/perl/lib/Archive/Tar/t/02_methods.t#8 (text) ====
Index: perl/lib/Archive/Tar/t/02_methods.t
--- perl/lib/Archive/Tar/t/02_methods.t#7~25348~        2005-09-02 
06:19:48.000000000 -0700
+++ perl/lib/Archive/Tar/t/02_methods.t 2006-01-11 06:07:47.000000000 -0800
@@ -684,6 +684,7 @@
         like( $content, qr/$econtent/,
                                     "   Contents OK" );
 
+        close $fh;
         $NO_UNLINK or 1 while unlink $path;
 
         ### alternate extract path tests 

==== //depot/perl/lib/Archive/Tar/t/99_clean.t#4 (text) ====
Index: perl/lib/Archive/Tar/t/99_clean.t
--- perl/lib/Archive/Tar/t/99_clean.t#3~25348~  2005-09-02 06:19:48.000000000 
-0700
+++ perl/lib/Archive/Tar/t/99_clean.t   2006-01-11 06:07:47.000000000 -0800
@@ -3,14 +3,17 @@
 
 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";
End of Patch.