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

From-SVN: r158976

gcc/ada/ChangeLog

+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

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);