incoming pc39 doesn't cause an outgoing one

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 710a3dbf84129a4b0405fc92597c8ff2cd7e2161..efe969b44a17222cbb32b5bd087db8a4329c83f0 100644 (file)
--- 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;
                }