From 614f79f7c6550de6802dad1d61f37eb5c8f6f11f Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 9 Oct 2021 12:59:22 -0700 Subject: rename :XDG-CACHE-HOME connattr to :XDG_CACHE_HOME Signed-off-by: Sean Whitton --- src/connection/chroot.lisp | 2 +- src/connection/local.lisp | 2 +- src/connection/setuid.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src/connection') 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)) -- cgit v1.2.3