sub _logroll
{
    local $SIG{__WARN__} = sub {};
    ...
}