diff options
Diffstat (limited to 'src/connection/setuid.lisp')
| -rw-r--r-- | src/connection/setuid.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index 32cd74c..8b3353f 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -67,12 +67,12 @@ (run-program (list "chown" "-R" (format nil "~A:~A" uid gid) (unix-namestring (slot-value connection 'datadir)))) + (posix-login-environment + user (connection-connattr connection :remote-home)) ;; We are privileged, so this sets the real, effective and saved IDs. (unless (zerop (setgid gid)) (error "setgid(2) failed!")) (unless (zerop (initgroups user gid)) (error "initgroups(3) failed!")) (unless (zerop (setuid uid)) - (error "setuid(2) failed!")) - (posix-login-environment - user (connection-connattr connection :remote-home)))) + (error "setuid(2) failed!")))) |