diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 15:27:00 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 16:40:08 -0700 |
commit | 4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14 (patch) | |
tree | b8e51af43f895a98ebd943580c51c1da38151bdf /src/connection/su.lisp | |
parent | f2ba47b7ef017a01a4b6c13982ff43a67cc6abd5 (diff) | |
download | consfigurator-4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14.tar.gz |
replace ESCAPE-SH-TOKEN and ESCAPE-SH-COMMAND with new SH-ESCAPE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/su.lisp')
-rw-r--r-- | src/connection/su.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/connection/su.lisp b/src/connection/su.lisp index 785302f..bd6657f 100644 --- a/src/connection/su.lisp +++ b/src/connection/su.lisp @@ -32,5 +32,4 @@ ;; argument to su(1) on, e.g., FreeBSD. So this should be fairly portable. (defmethod connection-shell-wrap ((connection su-connection) cmd) (format nil "su ~A -c ~A" - (escape-sh-token (slot-value connection 'user)) - (escape-sh-token cmd))) + (sh-escape (slot-value connection 'user)) (sh-escape cmd))) |