Preventing "Redundant argument in sprintf" warning in Perl 5.21.x (closes #1)