fix random test failure on perl 5.18