selftest:Samba4: avoid File::Path 'make_path' in setup_dns_hub_internal()

While spliting the build and test stages I hit strange permission
problems, when a parent directory is missing,
which can be avoided by using plain mkdir() on each level.

Signed-off-by: Stefan Metzmacher <metze@samba.org>
Reviewed-by: Andreas Schneider <asn@samba.org>

diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm
index 1ebdf2a548419dc1cd23f332b565bb14f37eabcf..c743de0a981d782e3c57618a1949b7babcd38323 100755 (executable)
--- a/selftest/target/Samba4.pm
+++ b/selftest/target/Samba4.pm
@@ -17,7 +17,6 @@ use SocketWrapper;
 use target::Samba;
 use target::Samba3;
 use Archive::Tar;
-use File::Path 'make_path';
 
 sub new($$$$$) {
        my ($classname, $SambaCtx, $bindir, $srcdir, $server_maxtime) = @_;
@@ -281,7 +280,7 @@ sub setup_dns_hub_internal($$$)
        my ($self, $hostname, $prefix) = @_;
        my $STDIN_READER;
 
-       unless(-d $prefix or make_path($prefix, 0777)) {
+       unless(-d $prefix or mkdir($prefix, 0777)) {
                warn("Unable to create $prefix");
                return undef;
        }
@@ -356,6 +355,10 @@ sub setup_dns_hub
 
        my $hostname = "rootdnsforwarder";
 
+       unless(-d $prefix or mkdir($prefix, 0777)) {
+               warn("Unable to create $prefix");
+               return undef;
+       }
        my $env = $self->setup_dns_hub_internal("$hostname", "$prefix/$hostname");
 
        $self->{dns_hub_env} = $env;