From 1ef1a210003fa761b7b544978abd9f01e51bb0da Mon Sep 17 00:00:00 2001
From: Marcus Meissner <marcus@jet.franken.de>
Date: Fri, 11 Dec 1998 10:21:46 +0000
Subject: [PATCH] Kill swapped out (wine) processes too and truncate diff after
 some xxx lines.

---
 tools/testrun | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/testrun b/tools/testrun
index dd6304381a1..b5e1da689f2 100755
--- a/tools/testrun
+++ b/tools/testrun
@@ -150,7 +150,7 @@ sub kill_subprocesses {
 	# kill all subprocesses called 'wine'. Do not kill find, diff, sh
 	# and friends, which are also subprocesses of us.
 	foreach (keys %kids) {
-		next unless ($cmdline{$_} =~ /(wine|dosmod)/);
+		next unless ($cmdline{$_} =~ /((.|)wine|dosmod)/);
 		# if we have already killed it using -TERM, use -KILL
 		if ($killedalready{$_}) {
 			kill(9,$_);	# FIXME: use correct number?
@@ -250,7 +250,7 @@ while ($exe=<FIND>) {
 	alarm(1000);# so it doesn't trigger in the diff, kill or find.
 
 	system("touch $cwd/runs/${runfile}.out");
-	system("$diff $cwd/runs/${runfile}.out $cwd/${runfile}.out");
+	system("$diff $cwd/runs/${runfile}.out $cwd/${runfile}.out|head -$trunclines");
 	system("head -$trunclines $cwd/${runfile}.out >$cwd/runs/${runfile}.out");
 	unlink("$cwd/${runfile}.out");
 	&kill_subprocesses;
-- 
GitLab