Perl 5.18 fix.