X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXUser.pm;h=a9c7ea030177eb75948a2c5954e9242ab121487e;hb=d9db74c1b2b9b57cb6d31e8c8c425f3636f62f87;hp=97aca375c325bccac68ac9fb609c46a4fc86ca19;hpb=6aca4e461103870de99b0ce452f21cf7fedeb54b;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 97aca375..a9c7ea03 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -94,6 +94,7 @@ use strict;
 
 sub finish
 {
+	undef $dbm;
 	untie %u;
 }