Sophie

Sophie

distrib > Mandriva > 2007.1 > x86_64 > by-pkgid > eaf226f4357223790f617cae99d7ef65 > files > 2

perl-Net-DNS-0.59-1.2mdv2007.1.src.rpm

diff -urN Net-DNS-0.48.orig/lib/Net/DNS/Header.pm Net-DNS-0.48.patched/lib/Net/DNS/Header.pm
--- Net-DNS-0.48.orig/lib/Net/DNS/Header.pm	2004-08-12 01:48:00.000000000 -0400
+++ Net-DNS-0.48.patched/lib/Net/DNS/Header.pm	2007-06-29 16:26:36.000000000 -0400
@@ -44,11 +44,10 @@
 =cut
 
 {
-	my $id = int rand(MAX_ID);
-	
-	sub nextid {
-		return $id++ % (MAX_ID + 1);
-	}
+
+        sub nextid {
+                int rand(MAX_ID);
+        }
 }
 
 sub new {