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 (file)
--- 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";