dns/p5-Net-DNS/files/patch-aa


1
2
3
4
5
6
7
8
9
10
11
12
13
14

--- lib/Net/DNS/Resolver.pm.bak	Thu Oct  2 09:32:14 1997
+++ lib/Net/DNS/Resolver.pm	Fri Dec 21 00:20:11 2001
@@ -244,7 +244,10 @@
 }
 
 sub nextid {
-	return $global{"id"}++;
+	if (++$global{"id"} > 65535) {
+		$global{"id"} = 0;
+	}
+	return $global{"id"};
 }
 
 =head2 searchlist