From 46fb1da8a48eb99d057b23d80a9d7f20fa6aec8c Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 13 May 2020 12:40:29 +0200 Subject: [PATCH] fix error messaging in DXUser::init --- perl/DXUser.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.34.1