X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=efe969b44a17222cbb32b5bd087db8a4329c83f0;hb=295f32fa75fefedcf1cd980c5afcc5de08417ba9;hp=710a3dbf84129a4b0405fc92597c8ff2cd7e2161;hpb=638d9efe6fe3d3c4eec08d5e985fce4dd760423b;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 710a3dbf..efe969b4 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -657,7 +657,7 @@ sub normal
 		}
 		
 		if ($pcno == 39) {		# incoming disconnect
-			$self->disconnect();
+			$self->disconnect(1);
 			return;
 		}