qpsmtpd/sme8/qpsmtpd-0.32-net_dns.patch2

diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.32/qpsmtpd-forkserver mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver
--- qpsmtpd-0.32/qpsmtpd-forkserver     2006-02-26 07:22:16.000000000 -0500
+++ mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver   2007-02-16 16:54:02.000000000 -0500
@@ -14,6 +14,7 @@
 use Socket;
 use Getopt::Long;
 use POSIX qw(:sys_wait_h :errno_h :signal_h);
+use Net::DNS::Header;
 use strict;
 $| = 1;
 
@@ -230,10 +231,12 @@
       next;
     }
     # otherwise child
-  
     # all children should have different seeds, to prevent conflicts
-    srand( time ^ ($$ + ($$ << 15)) );
-  
+    srand(time ^ ($$ + ($$ << 15)));
+    for (0 .. rand(65536)) {
+       Net::DNS::Header::nextid();
+    }
+ 
     close($server);
   
     $SIG{$_} = 'DEFAULT' for keys %SIG;
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.32/qpsmtpd-forkserver mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver
2			--- qpsmtpd-0.32/qpsmtpd-forkserver 2006-02-26 07:22:16.000000000 -0500
3			+++ mezzanine_patched_qpsmtpd-0.32/qpsmtpd-forkserver 2007-02-16 16:54:02.000000000 -0500
4			@@ -14,6 +14,7 @@
5			use Socket;
6			use Getopt::Long;
7			use POSIX qw(:sys_wait_h :errno_h :signal_h);
8			+use Net::DNS::Header;
9			use strict;
10			$\| = 1;
11
12			@@ -230,10 +231,12 @@
13			next;
14			}
15			# otherwise child
16			-
17			# all children should have different seeds, to prevent conflicts
18			- srand( time ^ ($$ + ($$ << 15)) );
19			-
20			+ srand(time ^ ($$ + ($$ << 15)));
21			+ for (0 .. rand(65536)) {
22			+ Net::DNS::Header::nextid();
23			+ }
24			+
25			close($server);
26
27			$SIG{$_} = 'DEFAULT' for keys %SIG;