X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=7850db8bceb27611f8dfc80068ad33d750b778e6;hb=4a1e9ef57551080432ecfcfcb5d7a924540ee06f;hp=a91c3ce63df5535f803fe90b860e5499cba44b76;hpb=314a26e98d3c3e6a717a9f66ead3ed91cce09ea5;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index a91c3ce6..7850db8b 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -558,6 +558,11 @@ sub handle_17
 		}
 	}
 
+	if (DXChannel::get($ucall)) {
+		dbg("PCPROT: trying do disconnect local user, ignored") if isdbg('chanerr');
+		return;
+	}
+
 	# input filter if required and then remove user if present
 	if ($parent) {
 #		return unless $self->in_filter_route($parent);