fix error messaging in DXUser::init

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 5dd1ced21ccbe93648ed138d25ae4a3b67d59fda..d2082d68954f0fa48923564dbf3755a8fabb6d45 100644 (file)
--- 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;