Re: Avoiding making a directory that already exists


Perl-Sensitive Sunglasses
	PerlMonks

Re: Avoiding making a directory that already exists

by Rudif (Hermit)

on Aug 19, 2001 at 23:38 UTC ( #106065=note: print w/replies, xml )

Need Help??

in reply to Avoiding making a directory that already exists

Actually, mkpath does the testing for you and will not try to create a directory that is already there. I would not bother to test.
From Path.pm:

sub mkpath {
    my($paths, $verbose, $mode) = @_;
    ...
    foreach $path (@$paths) {
    ...
    next if -d $path;
        ...
    my $parent = File::Basename::dirname($path);
    unless (-d $parent or $path eq $parent) {
        push(@created,mkpath($parent, $verbose, $mode));
     }
        ...
[download]

Rudif