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
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 2 Sep 2005 16:45:31 +0000 (16:45 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 2 Sep 2005 16:45:31 +0000 (16:45 +0000)
p4raw-id: //depot/perl@25349

lib/Archive/Tar/t/00_setup.t

index 888687e..f6734c5 100644 (file)
@@ -8,6 +8,7 @@ BEGIN {
 }
 
 for my $d (qw(short long)) {
 }
 
 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"; 
     my $file = File::Spec->catfile($d,'b');
     open F, '>', $file or die "Can't create $file: $!\n";
     print F "bbbbbbbbbbb\n";