Help for this page

Select Code to Download

Select or download this

# replace this line
# $PRETEND || -e "$newdir" || mkdir("$newdir");
...
unless ($PRETEND || -e $newdir){
  mkdir($newdir) or die "ERROR creating $newdir : Perl says $!";
}

Select or download this

my $MAIL_dir = "$kmaildir";

...
  mkdir($claws_tmpdir, 0755) 
     or die "ERROR creating $claws_tmpdir : Perls says $!";
}