fixed tests on Perl >= 5.18