diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-16 18:21:13 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-23 10:51:30 -0700 |
commit | daf5c937b90626fbc0c69d3a09342312c59c125b (patch) | |
tree | fd29b9c938edf96ea69c47d517ffff5809871efc /src/connection | |
parent | b4eb20904aa8f4ea7ec0ef58eac7889b4b864277 (diff) | |
download | consfigurator-daf5c937b90626fbc0c69d3a09342312c59c125b.tar.gz |
SHELL-WRAP-CONNECTION %READFILE: insert space before shell "&&"
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
-rw-r--r-- | src/connection/shell-wrap.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/shell-wrap.lisp b/src/connection/shell-wrap.lisp index f247a14..bcc8fc8 100644 --- a/src/connection/shell-wrap.lisp +++ b/src/connection/shell-wrap.lisp @@ -29,7 +29,7 @@ (multiple-value-bind (out exit) (let* ((path (escape-sh-token path)) (base #?"test -r ${path} && cat ${path}") - (cmd (if delete (strcat base #?"&& rm ${path}") base))) + (cmd (if delete (strcat base #?" && rm ${path}") base))) (connection-run c cmd nil)) (if (zerop exit) out |