corrected logic for print check.

2014-01-12 12:05:58 +00:00 · 2014-01-12 12:05:58 +00:00 · e98fd212e9
commit e98fd212e9
parent e30975450b
1 changed files with 1 additions and 1 deletions
--- a/Webperl/Logger.pm
+++ b/Webperl/Logger.pm
@ -271,7 +271,7 @@ sub print {
        print $logfile $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : "") if($logfile);

        syslog(lc($self -> {"outlevels"} -> [$level]), $message)
-            if(!$self -> {"syslog"});
+            if($self -> {"syslog"});

        # flush stdout if needed to avoid log update delays
        select((select(STDOUT), $| = 1)[0]) if($newline);