X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=97aca375c325bccac68ac9fb609c46a4fc86ca19;hb=refs%2Ftags%2FR_1_24;hp=9ebc31d934c9bea25a55aaa49b2b7318a1844929;hpb=1728c7c7a64eaf2852c490629f022c7e70bc46e2;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 {