This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Once again, fix Archive::Tar setup test with -Dmksymlinks
[perl5.git] / lib / Archive / Tar / t / 00_setup.t
index 888687e..f6734c5 100644 (file)
@@ -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";