From ba49813ff2ce03b9b92c16810f74afeae10c28ca Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 3 Mar 2001 20:46:17 +0000
Subject: [PATCH] more cleanups

---
 perl/winclient.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/winclient.pl b/perl/winclient.pl
index 55c87992..a8188b9d 100755
--- a/perl/winclient.pl
+++ b/perl/winclient.pl
@@ -77,6 +77,7 @@ if ($childpid) {
 		my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
 		if ($sort eq 'Z') {
 			kill 'TERM', $childpid;
+			exit(0);
 		} elsif ($sort eq 'E' || $sort eq 'B') {
 			;
 		} else {
-- 
2.34.1