more cleanups

diff --git a/perl/winclient.pl b/perl/winclient.pl
index 55c87992e82d61f42c569debb4eb382a3241b2d1..a8188b9dcb49abb5d5137ff6104b9f31b2d2fc87 100755 (executable)
--- 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 {