From 4964231710f7c09daffdab5c045248aa7de2f354 Mon Sep 17 00:00:00 2001 From: Greg Sabino Mullane Date: Fri, 2 May 2008 11:54:45 -0400 Subject: [PATCH] Perl::Critic adjustments --- .perlcriticrc | 3 +++ check_postgres.pl | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/.perlcriticrc b/.perlcriticrc index 1c429ba22..8f7e9174d 100644 --- a/.perlcriticrc +++ b/.perlcriticrc @@ -3,6 +3,9 @@ verbose = 8 severity = 1 +[Documentation::PodSpelling] +stop_words = Mullane Nagios psql dbname postgres USERNAME usernames dbuser pgpass nagios stderr showperf symlinked timesync criticals quirm lancre exabytes sami includeuser excludeuser flagg tardis WAL tablespaces tablespace perflimit burrick mallory grimm oskar ExclusiveLock garrett artemus queryname speedtest checksum checksums morpork klatch pluto faceoff slon greg watson franklin wilkins scott Sabino Seklecki dbpass autovacuum Astill refactoring NAGIOS + ## Severity 5: [-Subroutines::ProhibitNestedSubs] [-ValuesAndExpressions::ProhibitAccessOfPrivateData] diff --git a/check_postgres.pl b/check_postgres.pl index bb1031cb7..91a46ea7f 100755 --- a/check_postgres.pl +++ b/check_postgres.pl @@ -1627,7 +1627,7 @@ sub check_wal_files { my ($warning, $critical) = validate_range({type => 'integer', leastone => 1}); ## Figure out where the pg_xlog directory is - $SQL = q{SELECT count(*) FROM pg_ls_dir('pg_xlog') WHERE pg_ls_dir ~ E'^[0-9A-F]{24}$'}; + $SQL = q{SELECT count(*) FROM pg_ls_dir('pg_xlog') WHERE pg_ls_dir ~ E'^[0-9A-F]{24}$'}; ## no critic my $info = run_command($SQL); -- 2.39.5