diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:10:39 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:11:04 -0700 |
commit | b354ad20fdf0523e42146e742442546b8ea41219 (patch) | |
tree | d1a68377e7420e8d3ff191c807da69ac320d9e77 | |
parent | 8ea7ea4103aec49e2002466b5f22d3152a7f9a04 (diff) | |
download | consfigurator-b354ad20fdf0523e42146e742442546b8ea41219.tar.gz |
escape name of file we try to delete
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/connection.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 3d09124..711a28d 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -144,7 +144,8 @@ the root Lisp's machine. For example, using rsync(1) over SSH.")) `(let ((,file (mktemp))) (unwind-protect (progn ,@body) - (connection-run *connection* (format nil "rm -f ~A" ,file))))) + (connection-run *connection* (format nil "rm -f ~A" + (escape-sh-token ,file)))))) (defun mktemp () "Make a temporary file on the remote side." |