strip off extra brackets in pc61 ip storage

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 9921d8289d1ad5aed3e3753eae91f18f67fe3fab..0c71e5900d96d3fb5ebd3a01360993d92be8ba05 100644 (file)
--- 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);