Mailing List Archive

Author: quinlan
Date: Tue Apr 26 18:29:43 2005
New Revision: 164931

URL: http://svn.apache.org/viewcvs?rev=164931&view=rev
Log:
DNS ID initialization is done only once in a while, just pick one
randomly, also use 'my' instead of 'our'

Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm?rev=164931&r1=164930&r2=164931&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm Tue Apr 26 18:29:43 2005
@@ -53,10 +53,10 @@
# we can reset it to a new range when we fork -- paranoia to avoid
# accidentally reusing old results that way.
# range: 0x0000 - 0xffff
-our $DNS_ID_COUNTER;
+my $DNS_ID_COUNTER;

sub init_dns_id_counter_from_pid {
- $DNS_ID_COUNTER = (($$ >> 10) ^ (($$ << 6) & 0xffff));
+ $DNS_ID_COUNTER = int(rand(0xffff));
}

BEGIN {
@@ -208,7 +208,7 @@
$packet->header()->id($DNS_ID_COUNTER);

# a bit noisy, so commented by default...
- # dbg("dns: new DNS packet time=".time()." host=$host type=$type id=$DNS_ID_COUNTER");
+ #dbg("dns: new DNS packet pid=$$ time=".time()." host=$host type=$type id=$DNS_ID_COUNTER");
};

if ($@) {