diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-02 11:08:20 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-06 21:19:39 -0700 |
| commit | 2259c1e367b0bf35825f77adac34f796b027c295 (patch) | |
| tree | 37d1c5c1e373a7ffbf7aeffd8ea32d94a0cad642 /src/connection.lisp | |
| parent | e66c70d1dfe8581e7d6d82b14e278d91e0f92b6a (diff) | |
| download | consfigurator-2259c1e367b0bf35825f77adac34f796b027c295.tar.gz | |
RUN/MRUN: drop the trailing slash when populating HOME
This is the usual convention for that environment variable.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 1920bda..3105bc6 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -361,8 +361,9 @@ the working directory of the Lisp process using UIOP:WITH-CURRENT-DIRECTORY." ;; simplicity, particularly to avoid having to check whether the connattr ;; is set yet, because setting it requires working CONNECTION-RUN. (setq cmd (format nil "export HOME=~A; cd ~A; ~A" - (escape-sh-token (unix-namestring - (get-connattr :remote-home))) + (escape-sh-token (drop-trailing-slash + (unix-namestring + (get-connattr :remote-home)))) (escape-sh-token (unix-namestring (pwd))) cmd)) ,@forms)) |