Avoid a sprintf() warning in Perl 5.21

Perl 5.21 introduces a warning for redundant arguments
to s?printf() -- so sprintf("%d", 1, 2) would warn.

This commit silences that warning by passing sprintf the
exact number of arguments that it expects.