Make Perl::Critic not whine about missing policies.

diff --git a/Makefile b/Makefile
index 2640040e3487ba775545dbc59025eb49c606f952..83b9718c1e69bc23119c392fb7e29f870e28eca5 100644 (file)
--- 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 4ba5bf75ce02b7b074d6b9c05940229c050f59ae..0ad4d090b2d216775e1cf345fdf3561bac6159e7 100644 (file)
--- 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) {