You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by fe...@apache.org on 2005/05/14 22:01:12 UTC
svn commit: r170164 - /spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm
Author: felicity
Date: Sat May 14 13:01:11 2005
New Revision: 170164
URL: http://svn.apache.org/viewcvs?rev=170164&view=rev
Log:
check for debug facility earlier in Logger::_log() so we can drop out faster if we're not actually going to do anything
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm?rev=170164&r1=170163&r2=170164&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm Sat May 14 13:01:11 2005
@@ -179,19 +179,19 @@
sub _log {
my ($level, $message) = @_;
+ # only debug specific facilities
+ # log all info, warn, and error messages
+ if ($level eq "dbg") {
+ return unless ($LOG_SA{facility}->{all} ||
+ $LOG_SA{facility}->{$facility});
+ }
+
my $facility = "generic";
my $whitespace = " ";
if ($message =~ /^(\S+?):(\s*)(.*)/s) {
$facility = $1;
$whitespace = $2 if $2;
$message = $3;
- }
-
- # only debug specific facilities
- # log all info, warn, and error messages
- if ($level eq "dbg") {
- return unless ($LOG_SA{facility}->{all} ||
- $LOG_SA{facility}->{$facility});
}
$message =~ s/\n+$//s;