Fix test failing in Perl 5.17