X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=16ea931f493c21d03acda744fbf3409216611305;hb=f84b465bd691c4a5c7d94e903ec7de0f84a03fbc;hp=08a6b9ff2aa3bc6c20cb5fb22e7addb7bba79585;hpb=c76bd4b6555d057c32b59e29654c2f88beb67c2a;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 08a6b9ff..16ea931f 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -145,12 +145,12 @@ sub init
 	
 	# do a conversion if required
 	if ($convert) {
-		my ($key, $val, $action, $count, $err);
+		my ($key, $val, $action, $count, $err) = ('','',0,0,0);
 		
 		my %oldu;
 		dbg("Converting the User File to V3");
 		my $odbm = tie (%oldu, 'DB_File', "${fn}.v2", O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!) [rebuild it from user_asc?]";
-        for ($count = $err = 0, $action = R_FIRST; !$odbm->seq($key, $val, $action); $action = R_NEXT) {
+        for ($action = R_FIRST; !$odbm->seq($key, $val, $action); $action = R_NEXT) {
 			my $ref = asc_decode($val);
 			if ($ref) {
 				$u{$key} = $ref->encode;