Call has_forked to inform POE kernel that keitairc is running in the

child process.

Closes #19079.

diff --git a/ChangeLog b/ChangeLog
index 6c3fe0a..66e2e9a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-21  Makoto Matsushita  <matusita@jp.FreeBSD.org>
+        * keitairc: call $poe_kernel->has_forked to tell POE::Kernel
+        keitairc now runs on a child process (ticket #19079).
+
 2009-10-16  ISHIKAWA Mutsumi <ishikawa@hanzubon.jp>
 
        * Makefile.PL, lib/keitairc/Config.pm:

diff --git a/keitairc b/keitairc
index e7989fe..2e27aef 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # -*- mode: perl; coding: utf-8 -*-
 # keitairc
-# $Id: keitairc,v 1.74 2009-09-24 15:13:31 morimoto Exp $
+# $Id: keitairc,v 1.75 2009-10-21 14:35:50 matusita Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/keitairc,v $
 #
 # Copyright (c) 2003-2008 Jun Morimoto <morimoto@mrmt.net>
@@ -15,7 +15,7 @@
 #    Depends: libxml-simple-perl
 
 use Encode;
-use POE;
+use POE 1.007;
 use POE::Filter::HTTPD;
 use POE::Component::IRC;
 use POE::Component::Server::TCP;
@@ -52,6 +52,7 @@ if($cf->daemonize()){
                        close(PID);
                }
        }
+       $poe_kernel->has_forked;
 }
 
 # create irc component