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

Need -> !

Browse Source
This commit is contained in:
Chris 2014-01-12 12:04:50 +00:00
parent 6877525e58
commit e30975450b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Webperl/Logger.pm
View File

@ -270,7 +270,7 @@ sub print {
print $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : ""); print $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : "");
print $logfile $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : "") if($logfile); print $logfile $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : "") if($logfile);
syslog(lc($self {"outlevels"} -> [$level]), $message) syslog(lc($self -> {"outlevels"} -> [$level]), $message)
if(!$self -> {"syslog"}); if(!$self -> {"syslog"});
# flush stdout if needed to avoid log update delays # flush stdout if needed to avoid log update delays