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

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index a43880a2..87129ea0 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -67,6 +67,13 @@ $forwardfn = "$msgdir/forward.pl";  # the forwarding table
 		  keep => '0,Keep this?,yesno',
 		 );
 
+sub DESTROY
+{
+	my $self = shift;
+	undef $self->{lines};
+	undef $self->{gotit};
+}
+
 # allocate a new object
 # called fromnode, tonode, from, to, datetime, private?, subject, nolinesper  
 sub alloc