testing
It does not work in Perl 5.8 due to use of < in packs
auto-merge staging into master