| Subject: | Bleadperl patches (to apply) |
Change 26785 by steveh@mugwump 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) ====
@@ -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) ====
@@ -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";