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

From-SVN: r158976

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6303c3927c44905186623b67f54af020a0f45d84..bfe96da0afb82cd48dfe91c116409c83ba4b5830 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 1ab4423c7694445967bd49bdb5851c1374d04b87..548fde1ef0ce5c13c84c531c85c6629995d632f2 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);