perl5.21 warns about Redundant argument in sprintf

see RT #97062, https://rt.cpan.org/Ticket/Display.html?id=97062