prevent PC92 A/C changing our $my(alias|call)

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index c39b52e1da6b004982c92f667faa25d5ffc20705..79b9b8ba4a67498a7accde3f7753ab8a1f75dce1 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -2016,6 +2016,11 @@ sub handle_92
                                dbg("PCPROT: $_->[0] refers to me, ignored") if isdbg('chanerr');
                                next;
                        }
+                       if ($_->[0] eq $main::myalias && $_->[1] || $_->[0] eq $main::mycall && $_->[1] == 0) {
+                               dbg("PCPROT: $_->[0] changing type to " . $_->[1]?"Node":"User" . ", ignored") if isdbg('chanerr');
+                               next;
+                       }
+                       
                        push @nent, $_;
                }