services: cleanup: Reintroduce explicit ‘chmod’ calls.

This reverts commit e74d05db53fdf02956ccee0950896c6ca9f10573.

* gnu/services.scm (cleanup-gexp): Introduce explicit ‘chmod’ calls
after ‘mkdir’ calls.
* gnu/tests/base.scm (run-basic-test)[test]("permissions on /tmp"):
New test.

Reported-by: Hilton Chain <hako@ultrarare.space>
Change-Id: I1e14dbe52eac526d2ed4ec1dd9c6fd9036f96a63

1 files changed, 6 insertions, 1 deletions

diff --git a/gnu/services.scm b/gnu/services.scm
index 9b7f2641b74..8a4002e0724 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -665,9 +665,14 @@ information is missing, return the empty list (for channels) and possibly
            (delete-file-recursively "/var/run")
            (delete-file-recursively "/run")
 
+           ;; Note: The second argument to 'mkdir' is and'ed with umask,
+           ;; hence the 'chmod' calls.
            (mkdir "/tmp" #o1777)
+           (chmod "/tmp" #o1777)
            (mkdir "/var/run" #o755)
-           (mkdir "/run" #o755))))))
+           (chmod "/var/run" #o755)
+           (mkdir "/run" #o755)
+           (chmod "/var/run" #o755))))))
 
 (define cleanup-service-type
   ;; Service that cleans things up in /tmp and similar.