X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=97aca375c325bccac68ac9fb609c46a4fc86ca19;hb=6aca4e461103870de99b0ce452f21cf7fedeb54b;hp=9ebc31d934c9bea25a55aaa49b2b7318a1844929;hpb=077c3e3a30c07735968cedd5d9da3ac0b51a7f42;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 9ebc31d9..97aca375 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 {