[PATCH] Configure.pl Parrot dir already exists

[Buggs]

Hoi,

probably obsolete soon, but still.

Buggs

Index: Configure.pl
===================================================================
RCS file: /home/perlcvs/parrot/Configure.pl,v
retrieving revision 1.5
diff -u -3 -p -r1.5 Configure.pl
--- Configure.pl        2001/09/15 00:57:42     1.5
+++ Configure.pl        2001/09/16 19:41:58
@@ -142,7 +142,7 @@ END
 
        $text =~ s/#DUMPER OUTPUT HERE/$dd->Dump()/eg;
 
-       mkdir("Parrot", 0777) or ( $! =~ /File exists/i or die "Can't make directory 
./Parrot: $!");
+       unless(-d "Parrot"){mkdir("Parrot", 0777) or ( $! =~ /File exists/i or die 
+"Can't make directory ./Parrot: $!");}
        open(OUT, ">Parrot/Config.pm") or die "Can't open file Parrot/Config.pm: $!";
        print OUT $text;
        close(OUT) or die "Can't close file Parrot/Config.pm: $!";