diff options
| author | Stefan Metzmacher <metze@samba.org> | 2007-04-20 11:40:44 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:51:16 -0500 |
| commit | 3c070cb7c4e4a0690f8b29491825b1597f7d1cd0 (patch) | |
| tree | c4c07c3a4b73ed21e6819c076274b2cddc4a1394 /source4/script/tests/Samba4.pm | |
| parent | a81f2396a423b7e4b84bfcddf4a724607d45f999 (diff) | |
| download | samba-3c070cb7c4e4a0690f8b29491825b1597f7d1cd0.tar.gz samba-3c070cb7c4e4a0690f8b29491825b1597f7d1cd0.tar.bz2 samba-3c070cb7c4e4a0690f8b29491825b1597f7d1cd0.zip | |
r22409: try to fix selftest.pl on systems with old perl versions
metze
(This used to be commit 81a2a144df651bb37995c718fc9f7d7bffa9bac9)
Diffstat (limited to 'source4/script/tests/Samba4.pm')
| -rw-r--r-- | source4/script/tests/Samba4.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source4/script/tests/Samba4.pm b/source4/script/tests/Samba4.pm index e393fe7798..d5633aba30 100644 --- a/source4/script/tests/Samba4.pm +++ b/source4/script/tests/Samba4.pm @@ -173,7 +173,7 @@ sub mk_fedora($$$$$$) { my ($self, $ldapdir, $basedn, $root, $password, $privatedir, $configuration) = @_; - mkdir($ldapdir); + mkdir($ldapdir, 0777); my $fedora_ds_inf = "$ldapdir/fedorads.inf"; my $fedora_ds_initial_ldif = "$ldapdir/fedorads-initial.ldif"; @@ -270,7 +270,7 @@ sub mk_openldap($$$$$$$$) my $pidfile = "$ldapdir/slapd.pid"; my $modconf = "$ldapdir/modules.conf"; - mkdir($_) foreach ($ldapdir, "$ldapdir/db", "$ldapdir/db/bdb-logs", + mkdir($_, 0777) foreach ($ldapdir, "$ldapdir/db", "$ldapdir/db/bdb-logs", "$ldapdir/db/tmp"); open(CONF, ">$slapd_conf"); @@ -405,7 +405,7 @@ sub provision($$$$$) my $root = ($ENV{USER} or $ENV{LOGNAME} or `whoami`); my $server = "localhost"; my $srcdir="$RealBin/../.."; - -d $prefix or mkdir($prefix) or die("Unable to create $prefix"); + -d $prefix or mkdir($prefix, 0777) or die("Unable to create $prefix"); my $prefix_abs = abs_path($prefix); my $tmpdir = "$prefix_abs/tmp"; my $etcdir = "$prefix_abs/etc"; @@ -426,7 +426,7 @@ sub provision($$$$$) my $interfaces = "$ifaceipv4/8"; (system("rm -rf $prefix/*") == 0) or die("Unable to clean up"); - mkdir($_) foreach ($privatedir, $etcdir, $piddir, $ncalrpcdir, $lockdir, + mkdir($_, 0777) foreach ($privatedir, $etcdir, $piddir, $ncalrpcdir, $lockdir, $tmpdir); open(CONFFILE, ">$conffile"); |