fixed test for perl5.18