Author: turnstep
Date: Sun Apr 13 19:47:15 2008
New Revision: 11076
Modified:
DBD-Pg/trunk/.perlcriticrc
DBD-Pg/trunk/t/99_perlcritic.t
Log:
Check on Makefile.PL as well.
Modified: DBD-Pg/trunk/.perlcriticrc
==============================================================================
--- DBD-Pg/trunk/.perlcriticrc (original)
+++ DBD-Pg/trunk/.perlcriticrc Sun Apr 13 19:47:15 2008
@@ -24,14 +24,17 @@
[-Editor::RequireEmacsFileVariables]
[-ErrorHandling::RequireCarping]
[-InputOutput::ProhibitOneArgSelect]
+[-InputOutput::RequireCheckedSyscalls]
[-Lax::ProhibitComplexMappings::LinesNotStatements]
[-Lax::ProhibitEmptyQuotes::ExceptAsFallback]
[-Lax::ProhibitStringyEval::ExceptForRequire]
+[-Lax::RequireEndWithTrueConst]
[-Miscellanea::RequireRcsKeywords]
[-Modules::ProhibitAutomaticExportation]
[-Modules::ProhibitExcessMainComplexity]
[-Modules::ProhibitMultiplePackages]
[-Modules::RequireBarewordIncludes]
+[-Modules::RequireEndWithOne]
[-References::ProhibitDoubleSigils]
[-RegularExpressions::ProhibitCaptureWithoutTest]
[-RegularExpressions::ProhibitFixedStringMatches]
Modified: DBD-Pg/trunk/t/99_perlcritic.t
==============================================================================
--- DBD-Pg/trunk/t/99_perlcritic.t (original)
+++ DBD-Pg/trunk/t/99_perlcritic.t Sun Apr 13 19:47:15 2008
@@ -25,14 +25,14 @@
opendir my $dir, 't' or die qq{Could not open directory 't': $!\n};
@testfiles = map { "t/$_" } grep { /^.+\.(t|pl)$/ } readdir $dir;
closedir $dir;
- plan tests => [EMAIL PROTECTED];
+ plan tests => [EMAIL PROTECTED];
}
ok(@testfiles, 'Found files in test directory');
## Check the non-test files - just Pg.pm for now
my $critic = Perl::Critic->new(-severity => 1);
-for my $filename (qw/Pg.pm/) {
+for my $filename (qw/Pg.pm Makefile.PL/) {
if ($ENV{TEST_CRITIC_SKIPNONTEST}) {
pass qq{Skipping non-test file "$filename"};