X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=4ded62674e5a1c263fe2eda3c5569b4ee0be0b3b;hb=b0dc102f62871b43134807fa254749b1720d326a;hp=de9ecaa7540c5a9386853ad4610d19ebd86fbfbf;hpb=e6a53556f10b5d2f831dcd7b83655430c9b1a137;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index de9ecaa7..4ded6267 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -346,8 +346,9 @@ sub disconnect
 	my $user = $self->{user};
 	my $conn = $self->{conn};
 	my $call = $self->{call};
+    my $nopc39 = shift || 0;
 	
-	$self->finish();
+	$self->finish($nopc39);
 	$conn->send_now("Z$call|bye") if $conn; # this will cause 'client' to disconnect
 	$user->close() if defined $user;
 	$conn->disconnect() if $conn;