r24675: Specify mode to mkdir, as required by some versions of perl.

diff --git a/source/selftest/selftest.pl b/source/selftest/selftest.pl
index b0b53a16f110bcc0644966ac0feea07e510137eb..3506700f697df8ec7a5421497ed5d45e478ee73c 100755 (executable)
--- a/source/selftest/selftest.pl
+++ b/source/selftest/selftest.pl
@@ -717,7 +717,7 @@ if ($opt_format eq "buildfarm") {
        $msg_ops = new output::plain($opt_verbose, $opt_immediate, $statistics);
 } elsif ($opt_format eq "html") {
        require output::html;
-       mkdir "test-results";
+       mkdir("test-results", 0777);
        $msg_ops = new output::html("test-results", $statistics);
 } else {
        die("Invalid output format '$opt_format'");