|
Lines 361-372
Link Here
|
| 361 |
) || die "Could not create SSL socket: $! $@\n"; |
361 |
) || die "Could not create SSL socket: $! $@\n"; |
| 362 |
} |
362 |
} |
| 363 |
else { |
363 |
else { |
| 364 |
$server = new IO::Socket::INET(LocalAddr => $addr, |
364 |
my %socket = (LocalAddr => $addr, |
| 365 |
LocalPort => $port, |
365 |
LocalPort => $port, |
| 366 |
Proto => $proto, |
366 |
Proto => $proto, |
| 367 |
Type => SOCK_STREAM, |
367 |
Type => SOCK_STREAM, |
| 368 |
ReuseAddr => 1, |
368 |
ReuseAddr => 1, |
| 369 |
Listen => SOMAXCONN |
369 |
Listen => SOMAXCONN |
|
|
370 |
) if $opt{'debug'}; |
| 371 |
warn("creating INET socket:\n" . join("\n", map { "\t$_: $socket{$_}" } sort keys %socket) . "\n") if $opt{'debug'}; |
| 372 |
$server = new IO::Socket::INET( |
| 373 |
%socket |
| 370 |
) || die "Could not create INET socket: $! $@\n"; |
374 |
) || die "Could not create INET socket: $! $@\n"; |
| 371 |
} |
375 |
} |
| 372 |
|
376 |
|
