Hi Ludo,
On Sun, 01 Sep 2024 03:47:23 +0800,
Ludovic Courtès wrote:
Toggle quote (26 lines)
>
> * gnu/services.scm (cleanup-gexp): Pass mode as second argument to
> ‘mkdir’; remove ‘chmod’ calls.
>
> Change-Id: I8ac2dde0ca5d9bd6b2ef104d77141d8463d8b3fa
> ---
> gnu/services.scm | 6 ++----
> 1 file changed, 2 insertions(+), 4 deletions(-)
>
> diff --git a/gnu/services.scm b/gnu/services.scm
> index ce13c087ce..4a8e2b3b15 100644
> --- a/gnu/services.scm
> +++ b/gnu/services.scm
> @@ -660,10 +660,8 @@ (define (cleanup-gexp _)
> (delete-file-recursively "/tmp")
> (delete-file-recursively "/var/run")
>
> - (mkdir "/tmp")
> - (chmod "/tmp" #o1777)
> - (mkdir "/var/run")
> - (chmod "/var/run" #o755)
> + (mkdir "/tmp" #o1777)
> + (mkdir "/var/run" #o755)
> (delete-file-recursively "/run/udev/watch.old"))))))
>
> (define cleanup-service-type
It seems that the mode is not applied correctly:
Toggle snippet (5 lines)
$ guile -c '(mkdir "/tmp/test" #o1777)' && stat /tmp/test
[...]
Access: (1755/drwxr-xr-t) Uid: ( 1000/ hako) Gid: ( 998/ users)
[...]
Toggle snippet (5 lines)
$ guile -c '(and (mkdir "/tmp/test2") (chmod "/tmp/test2" #o1777))' && stat /tmp/test2
[...]
Access: (1777/drwxrwxrwt) Uid: ( 1000/ hako) Gid: ( 998/ users)
[...]