From 56526488941b1e3a410279f3d4061649b8319444 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 15 Sep 2020 01:28:48 +0200 Subject: [PATCH] use IO::Socket::IP and fix null reply --- perl/DXUDP.pm | 2 +- perl/wsjtl.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.43.0