me/guix
Archived
1
0
Fork 0
Code Activity

profiles: Use 'getpwuid' when $USER and $LOGNAME are undefined.

Browse source 
Reported by YOANN P <yoann_mac_donald@hotmail.com>.

* guix/profiles.scm (%profile-directory): Fall back to 'getpwuid' when
"USER" and "LOGNAME" are undefined.
This commit is contained in:
Ludovic Courtès 2019-12-10 17:21:31 +01:00
parent dc995fcd5a
commit c20ba18304
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/profiles.scm
View file

@ -1727,7 +1727,9 @@ because the NUMBER is zero.)"
(define %profile-directory (define %profile-directory
(string-append %state-directory "/profiles/" (string-append %state-directory "/profiles/"
(or (and=> (or (getenv "USER") (or (and=> (or (getenv "USER")
(getenv "LOGNAME")) (getenv "LOGNAME")
(false-if-exception
(passwd:name (getpwuid (getuid)))))
(cut string-append "per-user/" <>)) (cut string-append "per-user/" <>))
"default"))) "default")))