]> dxcluster.org Git - spider.git/commitdiff
fix error messaging in DXUser::init
authorDirk Koopman <djk@tobit.co.uk>
Wed, 13 May 2020 10:40:29 +0000 (12:40 +0200)
committerDirk Koopman <djk@tobit.co.uk>
Wed, 13 May 2020 10:40:29 +0000 (12:40 +0200)
perl/DXUser.pm

index 5dd1ced21ccbe93648ed138d25ae4a3b67d59fda..d2082d68954f0fa48923564dbf3755a8fabb6d45 100644 (file)
@@ -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;