cvs commit: parrot Configure.pl

[simon]

simon       01/09/14 03:45:22

  Modified:    .        Configure.pl
  Log:
  Be 5.005 friendly.
  
  Revision  Changes    Path
  1.4       +1 -1      parrot/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/Configure.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- Configure.pl      2001/09/14 10:39:42     1.3
  +++ Configure.pl      2001/09/14 10:45:21     1.4
  @@ -141,7 +141,7 @@
   
        $text =~ s/#DUMPER OUTPUT HERE/$dd->Dump()/eg;
   
  -     mkdir("Parrot") or ( $! =~ /File exists/i or die "Can't make directory 
./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: $!";