X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=51e6bb56aa7fc889cab17586bcc7adcd28fa9648;hb=770092d94f96b6d22a38fb33e0056b4779a8a1ab;hp=911f35bc99c7c778a0fba7529d262c07df0bf96c;hpb=f653700decb8864d66aa45f849ab6796442171c4;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 911f35bc..51e6bb56 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -188,6 +188,11 @@ sub init
 	$filename = $ufn;
 }
 
+sub active
+{
+	return $dbm;
+}
+
 sub del_file
 {
 	my ($pkg, $fn) = @_;
@@ -214,6 +219,7 @@ sub process
 
 sub finish
 {
+	print "DXUser Finishing\n";
 	undef $dbm;
 	untie %u;
 }
@@ -873,7 +879,10 @@ __DATA__
 	
 }
 
-
+sub END
+{
+	finish() if $dbm;
+}
 1;
 __END__