perl-critic-fixes-svn1732
