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"};

Reply via email to