From a8231fd4a9b0626eaa5ec376a3fb0ee371854649 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 27 Apr 2020 19:47:30 +0100 Subject: [PATCH] strip off extra brackets in pc61 ip storage --- perl/DXProtHandle.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 9921d828..0c71e590 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -241,7 +241,7 @@ sub handle_11 } if (isdbg('progress')) { - my $sip = $ip ? sprintf "($ip$implied)" : ''; + my $sip = $ip ? sprintf "($ip$implied)" : '' unless $ip =~ m|[\(\)\*]|; my $s = sprintf "SPOT: $spot[1] on $spot[0] \@ %s by $spot[4]$sip\@$spot[7]", cldatetime($spot[2]); $s .= " '$spot[3]'" if $spot[3]; dbg($s); -- 2.43.0