Fixed UTs on Perl 5.18.