From: Greg Sabino Mullane <greg@endpoint.com>
Date: Tue, 28 Apr 2009 19:30:52 +0000 (-0400)
Subject: Make Perl::Critic not whine about missing policies.
X-Git-Tag: 2.9.0~48
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=7e422202da3286c6dd4c9a149821a362e3ab6e58;p=check_postgres.git

Make Perl::Critic not whine about missing policies.
---

diff --git a/Makefile b/Makefile
index 2640040e3..83b9718c1 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 4ba5bf75c..0ad4d090b 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) {