fix perlcritic issue