X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=a9c7ea030177eb75948a2c5954e9242ab121487e;hb=ca18864d1264fadfe9869b630f05c950876c2169;hp=97aca375c325bccac68ac9fb609c46a4fc86ca19;hpb=0a27cdf136ea8f062fdb319ee99f9d76986522d5;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;
 }