X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=e60705b147a86e684eccc067f0d4311e4c933682;hb=a565e3b0349dfe4f82233fa30c7dc1ae09ff028a;hp=de9ecaa7540c5a9386853ad4610d19ebd86fbfbf;hpb=bca5cd40374f12da5e0d46980e54bffc61fdc9c9;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index de9ecaa7..e60705b1 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -30,7 +30,6 @@ use DXM;
 use DXUtil;
 use DXDebug;
 use Filter;
-use Carp;
 
 use strict;
 use vars qw(%channels %valid);
@@ -346,8 +345,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;