Fixed deprecation warning on perl 5.18.