* Call has_forked method to inform POE about fork

diff --git a/utils/redirector.pl.in b/utils/redirector.pl.in
index 9dd6a24f0e7bc217abfaf95a33595f49f5f62ba3..3ed8838e21306c8951dde91b81bf79d7b707e610 100755 (executable)
--- a/utils/redirector.pl.in
+++ b/utils/redirector.pl.in
@@ -439,7 +439,10 @@ while (my $arg = shift @ARGV) {
 die "Process is already started, check $cfg{pidfile}" if Proc::PidUtil::is_running($cfg{pidfile});
 
 # Do daemonization
-Proc::Daemon::Init if !$cfg{debug};
+if (!$cfg{debug}) {
+       Proc::Daemon::Init;
+       POE::Kernel->has_forked;
+}
 
 # Drop privilleges
 if ($> == 0) {