X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=79b9b8ba4a67498a7accde3f7753ab8a1f75dce1;hb=a24cc09d8262093df92c767d3010c0a5fd6e42d7;hp=c39b52e1da6b004982c92f667faa25d5ffc20705;hpb=f3ce29765421967819b7a65a083c1dd7df986183;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index c39b52e1..79b9b8ba 100644
--- 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, $_;
 		}