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/Samba3.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/Samba3.pm')
| -rw-r--r-- | source4/script/tests/Samba3.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/source4/script/tests/Samba3.pm b/source4/script/tests/Samba3.pm index 3c8a2c06dd..8e11f4cee9 100644 --- a/source4/script/tests/Samba3.pm +++ b/source4/script/tests/Samba3.pm @@ -8,7 +8,6 @@ package Samba3; use strict; use Cwd qw(abs_path); use FindBin qw($RealBin); -use POSIX; sub binpath($$) { @@ -203,12 +202,12 @@ sub provision($$) ## ## create the test directory layout ## - mkdir($prefix_abs); + mkdir($prefix_abs, 0777); print "CREATE TEST ENVIRONMENT IN '$prefix'..."; system("rm -rf $prefix_abs/*"); - mkdir($_) foreach($privatedir,$libdir,$piddir,$lockdir,$logdir); + mkdir($_, 0777) foreach($privatedir,$libdir,$piddir,$lockdir,$logdir); my $tmpdir = "$prefix_abs/tmp"; - mkdir($tmpdir); + mkdir($tmpdir, 0777); chmod 0777, $tmpdir; open(CONF, ">$conffile") or die("Unable to open $conffile"); |