diff options
Diffstat (limited to 'ldap/admin/src/scripts/DSUtil.pm.in')
-rw-r--r-- | ldap/admin/src/scripts/DSUtil.pm.in | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ldap/admin/src/scripts/DSUtil.pm.in b/ldap/admin/src/scripts/DSUtil.pm.in index 7e846d73..1b2fe633 100644 --- a/ldap/admin/src/scripts/DSUtil.pm.in +++ b/ldap/admin/src/scripts/DSUtil.pm.in @@ -834,6 +834,9 @@ sub makePaths { my $gid = -1; # default to leave it alone my $mode_string = ""; + if (-d $path) { + debug(1, "Directory already exists ", `ls -ld $path`); + } if ($group) { $gid = getgrnam $group; } @@ -845,7 +848,10 @@ sub makePaths { unshift @dirnames, $parent; } for my $dir (@dirnames) { - next if (-d $dir); + if (-d $dir) { + debug(5, "Skipping creation of existing directory ", `ls -ld $dir`); + next; + } $! = 0; # clear mkdir $dir, $mode; if ($!) { |