diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-27 09:44:26 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-27 13:39:57 -0700 |
commit | 4f3672536a9c96476aa5576beeeb446086ef64e7 (patch) | |
tree | 208837cd6cc6551ea362c1e7a2ef9d94e8e76bb7 /src/connection/shell-wrap.lisp | |
parent | 838d7aac806e2ebd8f2971c8774598f688191a9a (diff) | |
download | consfigurator-4f3672536a9c96476aa5576beeeb446086ef64e7.tar.gz |
fix :SHELL-WRAP's CONNECTION-WRITEFILE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/shell-wrap.lisp')
-rw-r--r-- | src/connection/shell-wrap.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/connection/shell-wrap.lisp b/src/connection/shell-wrap.lisp index 70d094c..9619cc1 100644 --- a/src/connection/shell-wrap.lisp +++ b/src/connection/shell-wrap.lisp @@ -35,11 +35,10 @@ path contents umask) - (with-remote-temporary-file (temp) - (connection-run conn - (if umask - (format nil "( umask ~O; cat >~A )" umask temp) - #?"cat >${temp}") + (with-remote-temporary-file (temp :connection conn) + (connection-run conn (if umask + (format nil "( umask ~O; cat >~A )" umask temp) + #?"cat >${temp}") contents) (connection-run conn #?"mv ${(escape-sh-token temp)} ${(escape-sh-token path)}" |