fixed duplicate spot, always make clean ending

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 911f35bc99c7c778a0fba7529d262c07df0bf96c..51e6bb56aa7fc889cab17586bcc7adcd28fa9648 100644 (file)
--- 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__