From 67d2a7c0d7d52c2c16dc21b93450c7f3d48fda13 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Mon, 24 Mar 2014 23:48:26 -0700 Subject: [PATCH] Fix minor perlcritic errors in krb5-strength-wordlist Add a missing stopword for spell checking and ignore the literal newlines in the SQL code constants. --- tools/krb5-strength-wordlist | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/krb5-strength-wordlist b/tools/krb5-strength-wordlist index f92ec0a..8d555f2 100755 --- a/tools/krb5-strength-wordlist +++ b/tools/krb5-strength-wordlist @@ -22,6 +22,7 @@ use Getopt::Long qw(GetOptions); my $CDB = 'cdb'; # The SQL used to create the SQLite database. +## no critic (ValuesAndExpressions::ProhibitImplicitNewlines) my $SQLITE_CREATE = q{ CREATE TABLE passwords ( password TEXT UNIQUE NOT NULL, @@ -33,6 +34,7 @@ my $SQLITE_CREATE = q{ my $SQLITE_INSERT = q{ INSERT OR IGNORE INTO passwords (password, drowssap) values (?, ?) }; +## use critic # print with error checking and an explicit file handle. # @@ -246,7 +248,7 @@ __END__ =for stopwords krb5-strength-wordlist krb5-strength cdb whitespace lookups lookup sublicense MERCHANTABILITY NONINFRINGEMENT krb5-strength --ascii Allbery -regexes output-wordlist +regexes output-wordlist heimdal-strength =head1 NAME -- 2.39.2