From 727a4af5991d69cca9f80fdab123ead06c3d6492 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 21 Jan 2022 18:12:31 +0000 Subject: [PATCH] fix ip address detection in PC92 --- perl/DXProtHandle.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 6f4fbd08..2b0a491b 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1571,8 +1571,9 @@ sub _decode_pc92_call my $version = $part[1] || 0; my $build = $part[2] || 0; my $ip = $part[3] || ''; - - if (is_ipaddr($version)) { + + # remember that, at this stage, IPV6 addresses have : replaced by , + if (length $version > 4 && $version =~ /[,\.][\da-f]{1,4}/i) { $ip = $version; $version = 0; } -- 2.43.0