From d52e74b25f8a1ac7e79048596961bd3ad9b8f9ef Mon Sep 17 00:00:00 2001 From: Giuseppe Scrivano Date: Sun, 2 May 2010 16:56:05 +0000 Subject: [PATCH] * gnathtml.pl: Use 755 as mask for new directories. From-SVN: r158976 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gnathtml.pl | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6303c3927c44..bfe96da0afb8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2010-05-02 Giuseppe Scrivano + + * gnathtml.pl: Use 755 as mask for new directories. + 2010-04-28 Eric Botcazou * gcc-interface/trans.c (gnat_gimplify_expr) : Uniquize diff --git a/gcc/ada/gnathtml.pl b/gcc/ada/gnathtml.pl index 1ab4423c7694..548fde1ef0ce 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); -- 2.47.2