Fixed incompatibility with perl 5.8