diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-09 12:59:22 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-23 12:31:01 -0700 |
commit | 614f79f7c6550de6802dad1d61f37eb5c8f6f11f (patch) | |
tree | 2dff711b6c597a2264129fb6aa061d402fd8040c /src/connection | |
parent | dee05622a94e2803d232892b376aba70328c21e6 (diff) | |
download | consfigurator-614f79f7c6550de6802dad1d61f37eb5c8f6f11f.tar.gz |
rename :XDG-CACHE-HOME connattr to :XDG_CACHE_HOME
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
-rw-r--r-- | src/connection/chroot.lisp | 2 | ||||
-rw-r--r-- | src/connection/local.lisp | 2 | ||||
-rw-r--r-- | src/connection/setuid.lisp | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/connection/chroot.lisp b/src/connection/chroot.lisp index eb7d533..5c149e3 100644 --- a/src/connection/chroot.lisp +++ b/src/connection/chroot.lisp @@ -103,7 +103,7 @@ should be the mount point, without the chroot's root prefixed.") ;; in UPLOAD-ALL-PREREQUISITE-DATA. (connection-connattr connection :remote-home) ;; Obtain & cache XDG_CACHE_HOME inside the chroot, and compute DATADIR. - (let ((xdg-cache-home (connection-connattr connection :XDG-CACHE-HOME))) + (let ((xdg-cache-home (connection-connattr connection :XDG_CACHE_HOME))) (setf connection (change-class connection 'chroot.fork-connection) (slot-value connection 'datadir) (merge-pathnames diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 1d70adc..2c79036 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -81,5 +81,5 @@ (detype-pathname temp) (detype-pathname path))))) (defmethod connection-connattr - ((connection local-connection) (k (eql :XDG-CACHE-HOME))) + ((connection local-connection) (k (eql :XDG_CACHE_HOME))) (uiop:xdg-cache-home)) diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index 1f85160..59622dd 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -44,7 +44,7 @@ :remote-user ,(cdr (assoc :name ent)) :remote-home ,(ensure-directory-pathname (cdr (assoc :home ent))) - :XDG-CACHE-HOME ,xdg-cache-home)) + :XDG_CACHE_HOME ,xdg-cache-home)) remaining))) (defmethod post-fork ((connection setuid-connection)) |