mkaptsrc: Perl's scoping for named subroutines is bobbins.

[distorted-bits] / do-slaves

diff --git a/do-slaves b/do-slaves
index de3142413f7486e91ad9b7ff5051808898b5d4f0..cf48f9a06dbe00cade67362b038fe54a5452db5b 100755 (executable)
--- a/do-slaves
+++ b/do-slaves
@@ -17,7 +17,8 @@ slaves=$(expand-list /etc/slaves "$@")
 for i in $slaves; do
   { { { echo "starting..."
        set +e; ssh "$i" "$command" 3>&-; rc=$?; set -e
-       echo "done (rc = $rc)"; } >&3; } 2>&1 | sed 's/^/!!! /'; } 3>&1 |
-  sed "s\a^\a$i: \a" &
+       echo "done (rc = $rc)"; } >&3; } 2>&1 |
+    while IFS= read -r line; do printf "!!! %s\n" "$line"; done; } 3>&1 |
+  while IFS= read -r line; do printf "%s: %s\n" "$i" "$line"; done &
 done
 wait