projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4216a8c
)
fix error messaging in DXUser::init
author
Dirk Koopman
<djk@tobit.co.uk>
Wed, 13 May 2020 10:40:29 +0000
(12:40 +0200)
committer
Dirk Koopman
<djk@tobit.co.uk>
Wed, 13 May 2020 10:40:29 +0000
(12:40 +0200)
perl/DXUser.pm
patch
|
blob
|
history
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) {
}
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: $
u
fn ($!) [rebuild it from user_asc?]";
} else {
} 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: $
u
fn ($!) [rebuild it from user_asc?]";
}
die "Cannot open $ufn ($!)\n" unless $dbm;
}
die "Cannot open $ufn ($!)\n" unless $dbm;