utf8);
#use Time::HiRes qw(gettimeofday tv_interval);
#use Unicruft;
use DB_File;
use Fcntl;
use JSON;
use Pod::Usage;
use strict;
##---------------------------------------------------------------
- var: aux db
our $aux_dbfile = undef; ##-- auxiliary db (Berkeley DB, ($basename => $metadata_json)
our $aux_xpath = 'fileDesc[@n="ddc-aux"]';
##-- var: user XPaths
our %user_xpaths = qw(); #
{
my $meta = from_json($aux_buf, {utf8=>!utf8::is_utf8($aux_buf), relaxed=>1, allow_nonref=>1, allow_unknown=>1})
or die("$prog: $basename: ERROR: failed to parse aux-db JSON metatdata '$aux_buf