--- 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"; }