diff options
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index bec5c23..7f9ee73 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -207,11 +207,11 @@ Returns command's stdout, stderr and exit code." (setq cmd (format nil "env ~{~A~^ ~} ~A" (escape-sh-command accum) cmd)))) - (with-remote-temporary-file (stderr) - (setq cmd (format nil "( ~A ) 2>~A" cmd stderr)) - (multiple-value-bind (out exit) + (with-remote-temporary-file (stdout) + (setq cmd (format nil "( ~A ) >~A" cmd stdout)) + (multiple-value-bind (err exit) (connection-run *connection* cmd input) - (let ((err (readfile stderr))) + (let ((out (readfile stdout))) (if (or may-fail (= exit 0)) (values out err exit) (error 'run-failed |