Fix for perl 5.18