diff options
Diffstat (limited to 'move/move.pm')
| -rw-r--r-- | move/move.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/move/move.pm b/move/move.pm index 56b495dcf..04105b6a0 100644 --- a/move/move.pm +++ b/move/move.pm @@ -140,7 +140,12 @@ sub init { #- create remaining /etc and /var subdirectories if not already copied or symlinked, #- because programs most often won't try to create the missing subdir before trying #- to write a file, leading to obscure unexpected failures - -d $_ or mkdir_p $_ foreach chomp_(cat_('/image/move/directories-to-create')); + foreach (cat_('/image/move/directories-to-create')) { + my ($mode, $uid, $gid, $name) = split; + next if -d $name; + mkdir($name, oct($mode)); + chown($uid, $gid, $name); + } chmod 01777, '/tmp', '/var/tmp'; #- /var/tmp -> badly needed for printing from OOo |