X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=6495e7a7edde6ed7e9ff32ac5630e755d9053816;hb=d8187e68f181966eea2dca949ca13e2cbbaf072e;hp=9bde6aa8fe4a30829b5dfed54895ec92250fd0b7;hpb=f3688be5d3f50cccf204d3d01dcaca1e9db7d4f7;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 9bde6aa8..6495e7a7 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -76,6 +76,22 @@ use vars qw(%channels %valid);
 		  passwd => '9,Passwd List,parray',
 		 );
 
+# object destruction
+sub DESTROY
+{
+	my $self = shift;
+	undef $self->{user};
+	undef $self->{conn};
+	undef $self->{loc};
+	undef $self->{pagedata};
+	undef $self->{group};
+	undef $self->{delayed};
+	undef $self->{annfilter};
+	undef $self->{wwvfilter};
+	undef $self->{spotfilter};
+	undef $self->{passwd};
+}
+
 # create a new channel object [$obj = DXChannel->new($call, $msg_conn_obj, $user_obj)]
 sub alloc
 {
@@ -84,6 +100,7 @@ sub alloc
   
 	die "trying to create a duplicate channel for $call" if $channels{$call};
 	$self->{call} = $call;
+	$self->{priv} = 0;
 	$self->{conn} = $conn if defined $conn;	# if this isn't defined then it must be a list
 	if (defined $user) {
 		$self->{user} = $user;