From 7271df97c1576e0b98549489f45eaa0799152766 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 1 Apr 2021 23:29:14 -0700 Subject: RESET-REMOTE-HOME: reset other pertinent vars Signed-off-by: Sean Whitton --- src/connection.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/connection.lisp b/src/connection.lisp index b20b107..50156d3 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -86,11 +86,13 @@ For an example of usage, see the :SUDO connection type.")) "The name of the remote user."))) (defun reset-remote-home () - "Clear the cache of the remote user's home directory. + "Clear the cache of the remote user's home directory, uid and name. Used by implementations of ESTABLISH-CONNECTION which will invalidate the -cached value, such as a connection which forks and then SETUIDs to another +cached values, such as a connection which forks and then SETUIDs to another user. Should not be called by properties." - (setf (slot-value *connection* 'remote-home) nil)) + (setf (slot-value *connection* 'remote-home) nil + (slot-value *connection* 'remote-uid) nil + (slot-value *connection* 'remote-user) nil)) (defclass lisp-connection (connection) ()) -- cgit v1.2.3