* gnathtml.pl: Use 755 as mask for new directories.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@158976 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6303c39..bfe96da 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2010-05-02  Giuseppe Scrivano <gscrivano@gnu.org>
+
+       * gnathtml.pl: Use 755 as mask for new directories.
+
 2010-04-28  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/trans.c (gnat_gimplify_expr) <ADDR_EXPR>: Uniquize

diff --git a/gcc/ada/gnathtml.pl b/gcc/ada/gnathtml.pl
index 1ab4423..548fde1 100644 (file)
--- a/gcc/ada/gnathtml.pl
+++ b/gcc/ada/gnathtml.pl
@@ -1090,9 +1090,9 @@ EOF
 
 local ($index_file) = 0;
 
-mkdir ($output_dir, 0777)          if (! -d $output_dir);
-mkdir ($output_dir."/files", 0777) if (! -d $output_dir."/files");
-mkdir ($output_dir."/funcs", 0777) if (! -d $output_dir."/funcs");
+mkdir ($output_dir, 0755)          if (! -d $output_dir);
+mkdir ($output_dir."/files", 0755) if (! -d $output_dir."/files");
+mkdir ($output_dir."/funcs", 0755) if (! -d $output_dir."/funcs");
 
 &parse_prj_file ($prjfile) if ($prjfile);