X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=a9c7ea030177eb75948a2c5954e9242ab121487e;hb=30dbf70f84b53174005810f64f546d2181e1a8c6;hp=9ebc31d934c9bea25a55aaa49b2b7318a1844929;hpb=1728c7c7a64eaf2852c490629f022c7e70bc46e2;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 9ebc31d9..a9c7ea03 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -76,7 +76,7 @@ sub init
 	my ($pkg, $fn, $mode) = @_;
   
 	confess "need a filename in User" if !$fn;
-	$fn .= ".new";
+	$fn .= ".v2";
 	if ($mode) {
 		$dbm = tie (%u, 'DB_File', $fn, O_CREAT|O_RDWR, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!)";
 	} else {
@@ -94,6 +94,7 @@ use strict;
 
 sub finish
 {
+	undef $dbm;
 	untie %u;
 }