diff --git a/Webperl/Logger.pm b/Webperl/Logger.pm index 1f6ac51..0472002 100644 --- a/Webperl/Logger.pm +++ b/Webperl/Logger.pm @@ -87,6 +87,8 @@ sub new { if($@) { $obj -> {"syslog"} = 0; $obj -> warn_log(undef, "Unable to conenct to syslog: $@"); + } else { + syslog(LOG_INFO, "Syslog started"); } }