PERL_SNPRINTF_CHECK(): off by 1 error