From eb97f7d4f6a6428b52f6cd24e54d3e4650f631a0 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Tue, 14 Sep 2021 13:54:29 +0200 Subject: Fix issue with redirection in run/port (and, by extension, run/string) We would initially create a pipe, dup(2) that onto fd 1 in the forked process and open an output port on the original fd. This resulted in a pretty nasty bug: if the fd would be redirected (by number) later, it would not affect the output port because that was set up to point to the original fd. Instead, open an output port to the newly set up stdout and close the direct pipe port. --- scsh-process.scm | 4 ++-- tests/run.scm | 5 +++++ 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/scsh-process.scm b/scsh-process.scm index b106bbf..a6d6e0b 100644 --- a/scsh-process.scm +++ b/scsh-process.scm @@ -11,7 +11,7 @@ ;; WARNING: Don't mix with threading unless you're using ;; Chicken 4.8.1 rev 47b5be71 or later. ;; -;;; Copyright (c) 2012-2020, Peter Bex +;;; Copyright (c) 2012-2021, Peter Bex ;; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without @@ -364,7 +364,7 @@ (lambda () (file-close in) (duplicate-fileno out 1) - (with-output-to-port (open-output-file* out) thunk))))) + (with-output-to-port (open-output-file* 1) thunk))))) (file-close out) (open-input-file* in))) diff --git a/tests/run.scm b/tests/run.scm index c4ab584..b5fa419 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -107,6 +107,11 @@ "hi, there\n" (run/string (sh -c "echo 'hi, there' >&2") (= 2 1))) + ;; Also reported by Diego "dieggsy" + (test "run/string where (begin) is piped to a program" + "1\n" + (run/string (pipe (begin (print "hey")) (wc -l)))) + (test "Unquote-splicing run/string" "hi, there\n" (run/string (echo ,@(list "hi," "there")))) -- cgit v1.2.3