Bug #62431 for tcpforward: defunct processes

Hi Alan! First: Thank you for this nice perl script. It proved itself very useful in many situations for me and for many of my users. Second: defunct processes are left when -k is used. Sending a SIGCHLD to the parent (21813) does not resolve the problem. Please provide some hint or a bugfix for the problem. Manuals suggest, that you may missed to call wait() for the finished childs. Technical details can be found after the signature. Thanks, Darabos, Edvárd Konrád Budapest, Hungary *5::hippy:~#* ps auxf | grep ... nil 21776 0.0 0.0 65932 1676 ? S Oct21 0:00 | \_ sshd: nil@pts/0 nil 21777 0.0 0.1 23408 4632 pts/0 Ss Oct21 0:00 | \_ -bash nil 21813 0.0 0.2 35732 6292 pts/0 S+ Oct21 0:00 | \_ /usr/bin/perl ./tcpforward -l hippy:11042 -c /**MASKED**/:10080 -k nil 20790 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20792 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20793 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20794 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20799 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20807 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20808 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20809 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 20810 0.0 0.0 0 0 pts/0 Z+ Oct22 0:00 | \_ [tcpforward] <defunct> nil 25259 0.0 0.0 0 0 pts/0 Z+ Oct24 0:00 | \_ [tcpforward] <defunct> nil 25260 0.0 0.0 0 0 pts/0 Z+ Oct24 0:00 | \_ [tcpforward] <defunct> nil 25261 0.0 0.0 0 0 pts/0 Z+ Oct24 0:00 | \_ [tcpforward] <defunct> nil 25262 0.0 0.0 0 0 pts/0 Z+ Oct24 0:00 | \_ [tcpforward] <defunct> nil 25263 0.0 0.0 0 0 pts/0 Z+ Oct24 0:00 | \_ [tcpforward] <defunct> nil 25264 0.0 0.0 0 0 pts/0 Z+ Oct24 0:00 | \_ [tcpforward] <defunct> nil 25267 0.0 0.0 0 0 pts/0 Z+ Oct24 0:00 | \_ [tcpforward] <defunct> *5::hippy:~#* lsb_release -a LSB Version: core-2.0-amd64:core-2.0-noarch:core-3.0-amd64:core-3.0-noarch:core-3.1-amd64:core-3.1-noarch:core-3.2-amd64:core-3.2-noarch:cxx-3.0-amd64:cxx-3.0-noarch:cxx-3.1-amd64:cxx-3.1-noarch:cxx-3.2-amd64:cxx-3.2-noarch:desktop-3.1-amd64:desktop-3.1-noarch:desktop-3.2-amd64:desktop-3.2-noarch:graphics-2.0-amd64:graphics-2.0-noarch:graphics-3.0-amd64:graphics-3.0-noarch:graphics-3.1-amd64:graphics-3.1-noarch:graphics-3.2-amd64:graphics-3.2-noarch:qt4-3.1-amd64:qt4-3.1-noarch Distributor ID: Debian Description: Debian GNU/Linux 5.0.6 (lenny) Release: 5.0.6 Codename: lenny *5::hippy:~#* cat /proc/version Linux version 2.6.26-2-amd64 (Debian 2.6.26-24lenny1) (dannf@debian.org) (gcc version 4.1.3 20080704 (prerelease) (Debian 4.1.2-25)) #1 SMP Thu Aug 19 00:37:36 UTC 2010 Other information: Versions of packages perl depends on: ii libc6 2.7-18lenny6 GNU C Library: Shared libraries ii libdb4.6 4.6.21-11 Berkeley v4.6 Database Libraries [ ii libgdbm3 1.8.3-3 GNU dbm database routines (runtime ii perl-base 5.10.0-19lenny2 minimal Perl system ii perl-modules 5.10.0-19lenny2 Core Perl modules Versions of packages perl recommends: ii netbase 4.34 Basic TCP/IP networking system Versions of packages perl suggests: pn libterm-readline-gnu-per <none> (no description available) ii perl-doc 5.10.0-19lenny2 Perl documentation