From: Martin Hamilton <martin@net.lut.ac.uk>

The line which reads:
                  send($sock, $request, 0, $them);
should say
                  send($sock, $request, 0);

diff --git a/scripts/udp-banger.pl b/scripts/udp-banger.pl
index 069df4928a02d1f9532de6dae61a18ab344fa42e..274561566c7ff2bb91eb85b78151ed99dddae982 100755 (executable)
--- a/scripts/udp-banger.pl
+++ b/scripts/udp-banger.pl
@@ -88,7 +88,7 @@ while (<>) {
                 $myip,          # a4 shostid
                 $_);            # a%d payload
        die "send: $!\n" unless
-               send($sock, $request, 0, $them);
+               send($sock, $request, 0);
        $nsent++;
         $rin = '';
         vec($rin,fileno($sock),1) = 1;