diff options
| -rw-r--r-- | guix/scripts/environment.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm index 1b3b1312ea3..116e01380a6 100644 --- a/guix/scripts/environment.scm +++ b/guix/scripts/environment.scm | |||
| @@ -828,7 +828,11 @@ WHILE-LIST." | |||
| 828 | (let* ((cwd (getcwd)) | 828 | (let* ((cwd (getcwd)) |
| 829 | (home (getenv "HOME")) | 829 | (home (getenv "HOME")) |
| 830 | (uid (if user 1000 (getuid))) | 830 | (uid (if user 1000 (getuid))) |
| 831 | (gid (if user 1000 (getgid))) | 831 | (gid (if user |
| 832 | 1000 | ||
| 833 | (match (getgid) | ||
| 834 | (0 1000) | ||
| 835 | (gid gid)))) | ||
| 832 | 836 | ||
| 833 | ;; On a foreign distro, the name service switch might be | 837 | ;; On a foreign distro, the name service switch might be |
| 834 | ;; dysfunctional and 'getpwuid' throws. Don't let that hamper | 838 | ;; dysfunctional and 'getpwuid' throws. Don't let that hamper |