From: Dirk Koopman Date: Mon, 14 Sep 2020 23:28:48 +0000 (+0200) Subject: use IO::Socket::IP and fix null reply X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=56526488941b1e3a410279f3d4061649b8319444;p=spider.git use IO::Socket::IP and fix null reply --- diff --git a/perl/DXUDP.pm b/perl/DXUDP.pm index 01c3b3b0..fda14c6f 100644 --- a/perl/DXUDP.pm +++ b/perl/DXUDP.pm @@ -108,7 +108,7 @@ sub start { my $host = $args->{LocalAddr} || $args->{host} || '0.0.0.0'; my $port = $args->{LocalPort} || $args->{port} || 1234; - $socket = IO::Socket::INET6->new( + $socket = IO::Socket::IP->new( LocalAddr => $host, LocalPort => $port, Proto => 'udp', diff --git a/perl/wsjtl.pl b/perl/wsjtl.pl index f991366e..7bfc8e7a 100755 --- a/perl/wsjtl.pl +++ b/perl/wsjtl.pl @@ -111,7 +111,7 @@ sub _udpread my $in = $wsjtx->handle($handle, $data, "$host:$port"); - distribute($in); + distribute($in) if $in && length $in; } sub _accept