From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 2 Sep 2005 17:35:31 +0000 (+0000)
Subject: Really fix the Archive::Tar setup test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a97e6d6568c56821dfe4fb20aefb713ef509f27;p=p5sagit%2Fp5-mst-13.2.git

Really fix the Archive::Tar setup test.
p4 and svn don't behave similarly concerning removal
of empty directories...

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

diff --git a/lib/Archive/Tar/t/00_setup.t b/lib/Archive/Tar/t/00_setup.t
index f6734c5..7c63306 100644
--- a/lib/Archive/Tar/t/00_setup.t
+++ b/lib/Archive/Tar/t/00_setup.t
@@ -3,7 +3,9 @@ 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';
+	mkdir 'src' unless -d 'src';
+	chdir 'src';
     }
 }