Fixed opening the UDP port in peerdemo

This commit is contained in:
Klaus Schmidinger
2019-03-11 10:28:22 +01:00
parent 18bb52554f
commit 084f51c7db
3 changed files with 4 additions and 2 deletions

View File

@@ -37,7 +37,7 @@ $TcpPort = $Port;
$UdpPort = $DefaultSvdrpPort;
$TcpSocket = new IO::Socket::INET(Listen => 5, LocalPort => $TcpPort, Proto => "tcp", ReusePort => 1) || die "$!";
$UdpSocket = new IO::Socket::INET( LocalPort => $UdpPort, Proto => "udp", ReusePort => 1) || die "$!";
$UdpSocket = new IO::Socket::INET( LocalPort => $UdpPort, Proto => "udp", ReuseAddr => 1) || die "$!";
$SvdrpSelect = new IO::Select($TcpSocket);
setsockopt($UdpSocket, SOL_SOCKET, SO_RCVTIMEO, pack('L!L!', 0, 1000)); # 1ms timeout on UDP socket