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/selftest.pl | |
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/selftest.pl')
-rwxr-xr-x | source4/script/tests/selftest.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/source4/script/tests/selftest.pl b/source4/script/tests/selftest.pl index a9b1708f60..1d9f58a11a 100755 --- a/source4/script/tests/selftest.pl +++ b/source4/script/tests/selftest.pl @@ -494,7 +494,7 @@ $prefix =~ s+/$++; die("using an empty prefix isn't allowed") unless $prefix ne ""; #Ensure we have the test prefix around -mkdir $prefix unless -d $prefix; +mkdir($prefix, 0777) unless -d $prefix; my $prefix_abs = abs_path($prefix); my $srcdir_abs = abs_path($srcdir); @@ -581,12 +581,12 @@ sub write_clientconf($$) { my ($conffile, $vars) = @_; - mkdir "$prefix/client" unless -d "$prefix/client"; + mkdir("$prefix/client", 0777) unless -d "$prefix/client"; if ( -d "$prefix/client/private" ) { unlink <$prefix/client/private/*>; } else { - mkdir("$prefix/client/private"); + mkdir("$prefix/client/private", 0777); } open(CF, ">$conffile"); |