diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/gnathtml.pl | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6303c3927c4..bfe96da0afb 100644 --- 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 1ab4423c769..548fde1ef0c 100644 --- 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); |