Make the tests work in perl 5.8.8