Can anyone see the problem with this code?
It works perfectly except for one directory which isn't created admin/templates/admin
#----------------------------------------------------------
# Make all the necessary directories.
my @errors;
my $dirs = { 1 => ['admin',0777],
2 => ['Config',0777],
3 => ['Library',0777],
4 => ['admin/templates',0777],
5 => ['admin/templates/user',0777],
6 => ['admin/templates/staff',0777],
7 => ['admin/templates/admin',0777]
};
for my $dir (keys %$dirs) {
mkdir (${$dirs->{$dir}}[0], ${$dirs->{$dir}}[1]) or push @errors, "Could not make " . ${$dirs->{$dir}}[0] . ": $!";
}
return;
}
Thanks. Btw....@errors prints "Could not make admin/templates/admin: No such file or directory"
It works perfectly except for one directory which isn't created admin/templates/admin
Code:
sub make_dirs { #----------------------------------------------------------
# Make all the necessary directories.
my @errors;
my $dirs = { 1 => ['admin',0777],
2 => ['Config',0777],
3 => ['Library',0777],
4 => ['admin/templates',0777],
5 => ['admin/templates/user',0777],
6 => ['admin/templates/staff',0777],
7 => ['admin/templates/admin',0777]
};
for my $dir (keys %$dirs) {
mkdir (${$dirs->{$dir}}[0], ${$dirs->{$dir}}[1]) or push @errors, "Could not make " . ${$dirs->{$dir}}[0] . ": $!";
}
return;
}
Thanks. Btw....@errors prints "Could not make admin/templates/admin: No such file or directory"