goto &$AUTOLOAD;
}
+my $readonly;
+
#use strict;
#
$dbm = tie (%u, 'DB_File', $filename, O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!) [rebuild it from user_json?]";
}
}
+ $readonly = !$mode;
+
die "Cannot open $filename ($!)\n" unless $dbm || $mode == 2;
return;
}
sub finish
{
- dbg('DXUser finished');
+ dbg('DXUser finished') unless $readonly;
$dbm->sync;
undef $dbm;
untie %u;
sub END
{
if ($dbm) {
- print "DXUser Ended\n";
+ print "DXUser Ended\n" unless $readonly;
finish();
}
}