Login
Fix a few miscellaneous self violations
authorChris Dolan <chris+github@chrisdolan.net>
Wed, 3 Oct 2007 05:47:53 +0000 (05:47 +0000)
committerChris Dolan <chris+github@chrisdolan.net>
Wed, 3 Oct 2007 05:47:53 +0000 (05:47 +0000)
Add a TODO test for mixed booleans inside "eval { ... }"

.gitignore
MANIFEST.SKIP
lib/Perl/Critic/Policy/Documentation/PodSpelling.pm
t/99_pod_coverage.t
t/BuiltinFunctions/RequireGlobFunction.run
t/ValuesAndExpressions/ProhibitMixedBooleanOperators.run

index 9b4b946..b22afe0 100644 (file)
@@ -1,2 +1,3 @@
 t/*_without_optional_dependencies.t
 t/ControlStructures/ProhibitNegativeExpressionsInUnlessAndUntilConditions.run
+t/Variables/RequireLocalizedPunctuationVars.run
index 1fa509d..2b3aaf1 100644 (file)
@@ -1,6 +1,10 @@
-^tags$
 ^README\.developer$
 \.PPI$
+^t/.*_without_optional_dependencies.t$
+^t/ControlStructures/ProhibitNegativeExpressionsInUnlessAndUntilConditions.run$
+^t/Variables/RequireLocalizedPunctuationVars.run$
+
+## Below here are generic entries that apply to any project ##
 
 # Version Control files
 ^\.cvsignore$
@@ -39,8 +43,7 @@ RCS
 ^tmon\.out$
 \.gdb_history$
 \.ERR$
-^t/.*_without_optional_dependencies.t$
-^t/ControlStructures/ProhibitNegativeExpressionsInUnlessAndUntilConditions.run$
+^tags$
 
 # Temp/backup files
 ~$
index 8dc020a..d86736c 100644 (file)
@@ -101,7 +101,7 @@ sub violates {
        my $writer_fh;
        ## TODO: block STDERR.  Use open3?
        my $pid = IPC::Open2::open2($reader_fh, $writer_fh, @{$command_line});
-       return if ! $pid;
+       return if not $pid;
 
        print {$writer_fh} $text or croak 'Failed to send data to spelling program';
        close $writer_fh or croak 'Failed to close pipe to spelling program';
@@ -114,7 +114,7 @@ sub violates {
        }
 
        # Why is this extra step needed???
-       @words = grep { ! exists $Pod::Wordlist::Wordlist{$_} } @words;  ##no critic(ProhibitPackageVars)
+       @words = grep { not exists $Pod::Wordlist::Wordlist{$_} } @words;  ##no critic(ProhibitPackageVars)
     };
     return if !@words;
 
index 3a7dbfa..010689f 100644 (file)
@@ -51,6 +51,7 @@ sub get_trusted_methods {
         default_themes
         default_severity
         supported_parameters
+        got_sigpipe
     );
 }
 
index 55308db..ea4cd20 100644 (file)
@@ -17,7 +17,8 @@ foreach my $file (<*.pl>) {
 #-----------------------------------------------------------------------------
 
 ## name Multiple globs via <...>
-## failures 1
+## failures 2
+## TODO readline parse error in PPI, fixed in PPI v1.119_04+
 ## cut
 
 @files = (<*.pl>, <*.pm>);
index 7597a54..7de22c5 100644 (file)
@@ -55,6 +55,17 @@ $sub ||= sub {
 # See http://rt.cpan.org/Ticket/Display.html?id=27637
 ok( ! 1, 'values are URLs' ) or diag 'never happens';
 
+## name Mixed booleans in code blocks
+## failures 0
+## TODO Statements inside of code blocks are not distinguished
+## cut
+
+eval {
+    if (1 || 2) {
+        return not 3;
+    }
+};
+
 ##############################################################################
 # Local Variables:
 #   mode: cperl