diff --git a/Webperl/Logger.pm b/Webperl/Logger.pm index 2da64d5..bc98625 100644 --- a/Webperl/Logger.pm +++ b/Webperl/Logger.pm @@ -270,7 +270,7 @@ sub print { print $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : ""); 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"}); # flush stdout if needed to avoid log update delays