Work around a bug in irssi on gentoo, leading to random zombies lurching about
authorDan Boger <zigdon@irc.peeron.com>
Tue, 22 Dec 2009 19:19:48 +0000 (11:19 -0800)
committerDan Boger <zigdon@irc.peeron.com>
Tue, 22 Dec 2009 19:19:48 +0000 (11:19 -0800)
twirssi.pl

index fd2a48f..267db11 100644 (file)
@@ -7,6 +7,7 @@ use File::Temp;
 use LWP::Simple;
 use Data::Dumper;
 use Encode;
+use POSIX qw/:sys_wait_h/;
 $Data::Dumper::Indent = 1;
 
 use vars qw($VERSION %IRSSI);
@@ -1185,6 +1186,9 @@ sub monitor_child {
       if &debug;
     my ($new_last_poll);
 
+    # reap any random leftover processes - work around a bug in irssi on gentoo
+    waitpid(-1, WNOHANG);
+
     # first time we run we don't want to print out *everything*, so we just
     # pretend