Select Code to Download

d13-sut# perl -d:DProf ./myperldaemon -d
panic: Devel::DProf inconsistent subroutine return at /usr/local/lib/p
+erl5/5.10.1/mach/Sys/Syslog.pm line 120.
Compilation failed in require at ./myperldaemon line 19.
BEGIN failed--compilation aborted at ./myperldaemon line 19.

use Sys::Syslog qw( :standard :macros );

    115 # And on Win32 systems, we try to use the native mechanism for
+ this
...
    817     local($SIG{__DIE__}, $SIG{__WARN__}, $@);
    818     return eval "use $_[0]; 1"
    819 }