X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=6495e7a7edde6ed7e9ff32ac5630e755d9053816;hb=3eb9538d135d9ff21d8ce7c0e0c6b3e6d7fb59a9;hp=754cd5387127edab92d73b6ebec42a93199b5f05;hpb=d6f207760a7908f4ea933125f1c2c36cbe4fb209;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 754cd538..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
 {