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

Once again, fix Archive::Tar setup test with -Dmksymlinks

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

diff --git a/lib/Archive/Tar/t/00_setup.t b/lib/Archive/Tar/t/00_setup.t
index 888687e..f6734c5 100644
--- a/lib/Archive/Tar/t/00_setup.t
+++ b/lib/Archive/Tar/t/00_setup.t
@@ -8,6 +8,7 @@ BEGIN {
 }
 
 for my $d (qw(short long)) {
+    -d $d or mkdir $d;
     my $file = File::Spec->catfile($d,'b');
     open F, '>', $file or die "Can't create $file: $!\n";
     print F "bbbbbbbbbbb\n";