Format string bug in h2xs

[Emanuel Bronshtein]

Binary package hint: perl

/usr/bin/h2xs have format string bug .

test case :
root@emanuel-desktop:/tmp# chfn -f "emanuel-%n" emanuel
emanuel@emanuel-desktop:/tmp$ /usr/bin/h2xs wait.h
Defaulting to backwards compatibility with perl 5.10.1
If you intend this module to be compatible with earlier perl versions, please
specify a minimum perl version with the -b option.

Writing Wait/ppport.h
Writing Wait/lib/Wait.pm
Modification of a read-only value attempted at /usr/bin/h2xs line 1226, <DATA> line 1.

the bug can be found at :

$licence = sprintf << "DEFAULT", $^V;
Copyright (C) ${\(1900 + (localtime) [5])} by $author

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version %vd or,
at your option, any later version of Perl 5 you may have available.
DEFAULT

fix :

$licence = sprintf << "DEFAULT", $author , $^V;
Copyright (C) ${\(1900 + (localtime) [5])} by %s

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version %vd or,
at your option, any later version of Perl 5 you may have available.
DEFAULT