[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