fixed Perl 5.16 support