another chmod with a leading 1 (Perl interprets this as a decimal instead of octal)

diff --git a/checksetup.pl b/checksetup.pl
index b2c479c83c0975c6faa81ac284dc02761ebcc026..2953f9b2ba9e086c9edf7dd7622e903414b731f5 100755 (executable)
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -2055,7 +2055,7 @@ if (!($sth->fetchrow_arrayref()->[0])) {
 # a Bugzilla with the old data format, and so upgrade their data files.
 unless (-d 'graphs') {
     print "Creating graphs directory...\n";
-    mkdir 'graphs', 1770; 
+    mkdir 'graphs', 0770; 
     if ($my_webservergroup eq "") {
         chmod 01777, 'graphs';
     }