From 2e1599f51c803560b6b9063fd8ae95d62a601b62 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 26 Feb 2021 17:38:03 -0700 Subject: no need to force a shell around a shell Signed-off-by: Sean Whitton --- src/connection/local.lisp | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 85c8f95..5f5c260 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -34,13 +34,10 @@ root Lisp is running on, as the root Lisp's uid.")) (defmethod connection-run ((connection local-connection) shell-cmd input) (multiple-value-bind (output _ exit-code) - ;; wrap in sh -c in case user's shell is not POSIX - (run-program (strcat "sh -c " (escape-sh-token shell-cmd)) - :force-shell t - :input input - :output :string - :error-output :output - :ignore-error-status t) + ;; call sh(1) so we know we'll get POSIX + (run-program `("sh" "-c" ,shell-cmd) + :input input :output :string + :error-output :output :ignore-error-status t) (declare (ignore _)) (values output exit-code))) -- cgit v1.2.3