[check_postgres] [commit] Make Perl::Critic not whine about missing policies.

check_postgres at bucardo.org check_postgres at bucardo.org
Tue Apr 28 19:31:15 UTC 2009


Committed by Greg Sabino Mullane <greg at endpoint.com>

Make Perl::Critic not whine about missing policies.

---
 Makefile          |    2 +-
 t/99_perlcritic.t |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index 2640040..83b9718 100644
--- a/Makefile
+++ b/Makefile
@@ -19,7 +19,7 @@ index.html: check_postgres.pl
 
 critic:
 
-	perlcritic check_postgres.pl
+	perlcritic --profile-strictness quiet check_postgres.pl
 
 
 test:
diff --git a/t/99_perlcritic.t b/t/99_perlcritic.t
index 4ba5bf7..0ad4d09 100644
--- a/t/99_perlcritic.t
+++ b/t/99_perlcritic.t
@@ -30,7 +30,7 @@ else {
 ok(@testfiles, 'Found files in test directory');
 
 ## Check some non-test files
-my $critic = Perl::Critic->new(-severity => 1);
+my $critic = Perl::Critic->new(-severity => 1, '-profile-strictness' => 'quiet');
 
 for my $filename (qw{check_postgres.pl }) {
 
@@ -106,7 +106,7 @@ my $tm = join '|' => (qw/skip plan pass fail is ok diag BAIL_OUT/);
 my $testmoreok = qr{Subroutine "$tm" is neither};
 
 ## Create a new critic for the tests
-$critic = Perl::Critic->new(-severity => 1);
+$critic = Perl::Critic->new(-severity => 1, '-profile-strictness' => 'quiet');
 
 my $count = 1;
 for my $filename (sort @testfiles) {
-- 
1.6.0.5



More information about the Check_postgres mailing list