perl5.21 warns about Redundant argument in sprintf

see RT #<todo>