Re: Directory creation in Perl using mkdir

You can try to call mkdir first, then check for the existence:

my $error;
mkdir $path or $error = $!;
unless (-d $path) {
    die "Cannot create directory '$path': $error";
}
[download]

That should avoid race conditions in directory creation.

Comment on Re: Directory creation in Perl using mkdir Download Code

Replies are listed 'Best First'.
Re^2: Directory creation in Perl using mkdir by rovf (Priest) on Apr 04, 2011 at 09:44 UTC
Why do you need the variable `$error`? Can't you simply say: `mkdir $path; die "Cannot create directory $path : $!\n" unless -d $path;` [download] ? From what I see from the documentation, the `-d` operator doesn't change `$!`, does it? -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l] [select]
Re^3: Directory creation in Perl using mkdir by moritz (Cardinal) on Apr 04, 2011 at 10:28 UTC
In the subthread of Re: Unlinking a file when the file doesnt exist, ikegami claims that file test operators can change $!. Since I haven't seen contrary evidence, I'm willing to take the safe route. Perl 6 - second systems done right	[reply]