X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=d2082d68954f0fa48923564dbf3755a8fabb6d45;hb=46fb1da8a48eb99d057b23d80a9d7f20fa6aec8c;hp=5dd1ced21ccbe93648ed138d25ae4a3b67d59fda;hpb=4216a8c68e18bc33c24092d1dba73bfce41b59ff;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 5dd1ced2..d2082d68 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -157,9 +157,9 @@ sub init
 	}
 	
 	if ($mode) {
-		$dbm = tie (%u, 'DB_File', $ufn, O_CREAT|O_RDWR, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!) [rebuild it from user_asc?]";
+		$dbm = tie (%u, 'DB_File', $ufn, O_CREAT|O_RDWR, 0666, $DB_BTREE) or confess "can't open user file: $ufn ($!) [rebuild it from user_asc?]";
 	} else {
-		$dbm = tie (%u, 'DB_File', $ufn, O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!) [rebuild it from user_asc?]";
+		$dbm = tie (%u, 'DB_File', $ufn, O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $ufn ($!) [rebuild it from user_asc?]";
 	}
 
 	die "Cannot open $ufn ($!)\n" unless $dbm;