From afe955cbd1dab48cf15a5a9b3f033d47d87720f4 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 25 Jun 2022 15:12:14 -0700 Subject: convert some internal shell snippets to single lines Signed-off-by: Sean Whitton --- src/connection.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 7db2413..b03e33e 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -318,7 +318,8 @@ which will be cleaned up when BODY is finished." ;; ;; While GNU M4 mkstemp makes the temporary file at most readable and ;; writeable by its owner, POSIX doesn't require this, so set a umask. - #?"umask 077 + (sh-script-to-single-line + #?"umask 077 exec 3>&1 if err=\$(if command -v m4 >/dev/null; then echo 'mkstemp(${template})' | m4 2>&1 1>&3 @@ -334,7 +335,7 @@ else ?*) printf >&2 \"%s\\n\" \"$err\" ;; esac exit 1 -fi") +fi")) (defun mktemp (&key (connection *connection*) directory) "Make a temporary file on the remote side, in DIRECTORY, defaulting to /tmp." -- cgit v1.2.3