change the self altering logic a bit

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4e130f188c41cc6d570af7a5ef339093561b35a2..9fb40a81b4f5100baddee61f002dbd0e92da77cd 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -534,7 +534,7 @@ sub normal
                                return;
                        }
                        $dxchan = DXChannel->get($ncall);
-                       if ($dxchan ne $self) {
+                       if ($dxchan && $dxchan ne $self) {
                                dbg('chan', "PCPROT: PC16 from $self->{call} trying to alter locally connected $ncall, ignored!");
                                return;
                        }
@@ -579,7 +579,7 @@ sub normal
                                return;
                        }
                        $dxchan = DXChannel->get($ncall);
-                       if ($dxchan ne $self) {
+                       if ($dxchan && $dxchan ne $self) {
                                dbg('chan', "PCPROT: PC17 from $self->{call} trying to alter locally connected $ncall, ignored!");
                                return;
                        }