Fixed opening the UDP port in peerdemo

3 files changed, 4 insertions, 2 deletions

diff --git a/CONTRIBUTORS b/CONTRIBUTORS
index eb88b196..9d37b941 100644
--- a/CONTRIBUTORS
+++ b/CONTRIBUTORS
@@ -3544,6 +3544,7 @@ Stefan Pöschel <basic.master@gmx.de>
 
 Robert Hannebauer <vdr@hannebauer.org>
  for fixing an overflow of PIDs in a receiver
+ for fixing opening the UDP port in peerdemo
 
 Aitugan Sarbassov <isarbassov@gmail.com>
  for adding 'S58.5E Kazsat 3' to sources.conf
diff --git a/HISTORY b/HISTORY
index 6ca76642..016fb6a6 100644
--- a/HISTORY
+++ b/HISTORY
@@ -9348,7 +9348,7 @@ Video Disk Recorder Revision History
   Senzel).
 - Official release.
 
-2018-11-15: Version 2.4.1
+2019-03-11: Version 2.4.1
 
 - Fixed handling the tfRecording flag in the SVDRP commands MODT and UPDT (reported
   by Johann Friedrichs).
@@ -9374,3 +9374,4 @@ Video Disk Recorder Revision History
 - Reverted the change "The EIT filter no longer parses data from "other TS"...". It led to
   missing EPG data on channels from Canal Digital Norway (reported by Stian B. Barmen).
 - Fixed accessing the actual frontend on multi frontend devices (thanks to Helmut Binder).
+- Fixed opening the UDP port in peerdemo (thanks to Robert Hannebauer).
diff --git a/peerdemo b/peerdemo
index 3c2cb730..59bb983c 100755
--- a/peerdemo
+++ b/peerdemo
@@ -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