Fix for Perl 5.18, as done by a few people already.