From 030bcaa582c8397815d07d57f8d40bb1eb1c882b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 25 Nov 2019 00:01:01 +0000
Subject: [PATCH] stest: Kill our child secnets when we call finish

This stops them hanging around and, often, printing more stuff after
the test has actually failed.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 stest/common.tcl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/stest/common.tcl b/stest/common.tcl
index e9ca658..388320a 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -210,6 +210,11 @@ prefix_preload $builddir/stest/udp-preload.so
 
 proc finish {estatus} {
     puts stderr "FINISHING $estatus"
+    signal default SIGCHLD
+    global pidmap
+    foreach pid [array names pidmap] {
+	kill KILL $pid
+    }
     exit $estatus
 }
 
-- 
2.30.2