Kill swapped out (wine) processes too and truncate diff after some xxx

lines.
This commit is contained in:
Marcus Meissner 1998-12-11 10:21:46 +00:00 committed by Alexandre Julliard
parent a975da05da
commit 1ef1a21000
1 changed files with 2 additions and 2 deletions

View File

@ -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;