Hoi,
This doesn't take into account locale.
line 211:
mkdir("Parrot", 0777) or ( $! =~ /File exists/i or die "Can't make directory ./Parrot:
$!");
On Sunday 16 September 2001 21:43, Buggs wrote:
> 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: $!";
