local $SIG{__WARN__} = sub { set_dberror(join('',@_))};