You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by jm...@apache.org on 2007/06/14 20:24:33 UTC
svn commit: r547347 - /spamassassin/trunk/lib/Mail/SpamAssassin/Dns.pm
Author: jm
Date: Thu Jun 14 11:24:32 2007
New Revision: 547347
URL: http://svn.apache.org/viewvc?view=rev&rev=547347
Log:
bug 5509: improve URIBL timeout debugging messages, thanks to Mark Martinec
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Dns.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Dns.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Dns.pm?view=diff&rev=547347&r1=547346&r2=547347
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Dns.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Dns.pm Thu Jun 14 11:24:32 2007
@@ -392,15 +392,12 @@
# timeouts
@left = $self->{async}->get_pending_lookups();
+ $now = time;
for my $query (@left) {
- my $string = '';
- if (defined @{$query->{sets}}) {
- $string = join(",", grep defined, @{$query->{sets}});
- }
- elsif (defined @{$query->{rules}}) {
- $string = join(",", grep defined, @{$query->{rules}});
- }
- my $delay = time - $self->{async}->get_last_start_lookup_time();
+ my $string = join(", ", grep { defined }
+ map { ref $query->{$_} ? @{$query->{$_}} : $query->{$_} }
+ qw(sets rules rulename type key) );
+ my $delay = $now - $self->{async}->get_last_start_lookup_time();
dbg("dns: timeout for $string after $delay seconds");
}