support for perl 5.12