From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 13 May 2020 10:40:29 +0000 (+0200)
Subject: fix error messaging in DXUser::init
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=46fb1da8a48eb99d057b23d80a9d7f20fa6aec8c

fix error messaging in DXUser::init
---

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;