X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCluster.pm;h=aee8fe4d94a0c6a0e1c192fb1d94d836b705edd1;hb=3eb9538d135d9ff21d8ce7c0e0c6b3e6d7fb59a9;hp=c0ec375a88f56eabc3fe39e2fce91417564ae0af;hpb=d6f207760a7908f4ea933125f1c2c36cbe4fb209;p=spider.git

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index c0ec375a..aee8fe4d 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -136,12 +136,6 @@ sub cluster
 	return " $DXNode::nodes nodes, $users local / $tot total users  Max users $DXNode::maxusers  Uptime $uptime";
 }
 
-#sub DESTROY
-#{
-#	my $self = shift;
-#	dbg('cluster', "destroying $self->{call}\n");
-#}
-
 no strict;
 sub AUTOLOAD
 {
@@ -303,5 +297,13 @@ sub dolist
 {
 
 }
+
+sub DESTROY
+{
+	my $self = shift;
+	undef $self->{list} if $self->{list};
+}
+
+
 1;
 __END__