Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support called-defined prefix.

Browse Source
This commit is contained in:
Chris 2014-01-12 12:16:19 +00:00
parent e98fd212e9
commit 768c54c0c1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Webperl/Logger.pm
View File

@ -60,7 +60,8 @@ BEGIN {
# Defaults to false.
# logname - If set, messages sent to warn_log and die_log will be appended
# to the specified log file. See start_log below for more details.
# syslog - If set to true, messages are copied into syslog.
# syslog - If set then messages are written to syslog prefixed with this
# string.
#
# @param args A hash of key, value pairs with which to initialise the object.
# @return A new Logging object.
@ -82,7 +83,7 @@ sub new {
# Set up syslog if needed. If open fails, disable syslog again
if($obj -> {"syslog"}) {
eval { openlog($$, "ndelay,pid", LOG_DAEMON); };
eval { openlog($obj -> {"syslog"}, "ndelay,pid", LOG_DAEMON); };
if($@) {
$obj -> {"syslog"} = 0;
$obj -> warn_log(undef, "Unable to conenct to syslog: $@");