[patch] (Test) patch against spamd

spamd.pat (text/plain), 833 bytes, created by Malte S. Stretz on 2004-07-25 16:17:13 UTC

Index: spamd.raw
===================================================================
--- spamd.raw	(revision 6600)
+++ spamd.raw	(working copy)
@@ -361,12 +361,16 @@
   ) || die "Could not create SSL socket: $! $@\n";
 }
 else {
-  $server = new IO::Socket::INET(LocalAddr => $addr,
+  my %socket = (LocalAddr => $addr,
                                  LocalPort => $port,
                                  Proto => $proto,
                                  Type => SOCK_STREAM,
                                  ReuseAddr => 1,
                                  Listen => SOMAXCONN
+  ) if $opt{'debug'};
+  warn("creating INET socket:\n" . join("\n", map { "\t$_: $socket{$_}" } sort keys %socket) . "\n") if $opt{'debug'};
+  $server = new IO::Socket::INET(
+    %socket
   ) || die "Could not create INET socket: $! $@\n";
 }