The Proc::Daemon::Init function does the following:

• 1 Forks a child and exits the parent process.
• 2 Becomes a session leader (which detaches the program from the controlling terminal).
• 3 Forks another child process and exits first child. This prevents the potential of acquiring a controlling terminal.
• 4 Changes the current working directory to "/".
• 5 Clears the file creation mask.
• 6 Closes all open file descriptors.

Note point 6. It closes all open file descriptors. Maybe exchanging two lines in your code does the trick:

Proc::Daemon::Init();
Log::Log4perl->init_and_watch( '/tmp/test_log_daemon.conf', 10 );
[download]

Don't know it it works (just an idea), maybe Log::Log4perl->init_and_watch() reopens STDERR or such.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}