diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-06 14:38:01 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-23 11:18:07 -0700 |
| commit | 720ee21a0905d36cf29af49ce8b6d572296dddb6 (patch) | |
| tree | 3d64818aaf57d47f2edc8a413623d20f9ffb1738 /src/connection | |
| parent | 4e44e118bec33d1c8b5b22714ceacf5dd6462d6d (diff) | |
| download | consfigurator-720ee21a0905d36cf29af49ce8b6d572296dddb6.tar.gz | |
:SETUID: error when OSICAT:USER-INFO fails
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
| -rw-r--r-- | src/connection/setuid.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index ef00967..1f85160 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -24,7 +24,8 @@ (unless (and (lisp-connection-p) (zerop (nix:geteuid))) (error "~&SETUIDing requires a Lisp image running as root")) (informat 1 "~&SETUIDing to ~A" to) - (let* ((ent (osicat:user-info to)) + (let* ((ent (or (osicat:user-info to) + (failed-change "~&Could not look up user info for ~A." to))) (xdg-cache-home (ensure-directory-pathname (stripln |