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

##</code><code>##

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