Perlcritic --cruel fixes.