Login
Fixed RT #27073
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Mon, 21 May 2007 00:13:47 +0000 (00:13 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Mon, 21 May 2007 00:13:47 +0000 (00:13 +0000)
Changes
lib/Perl/Critic/Policy/ValuesAndExpressions/RequireUpperCaseHeredocTerminator.pm

diff --git a/Changes b/Changes
index 55433b3..4b6538f 100644 (file)
--- a/Changes
+++ b/Changes
        check in void contexts.
 
      Bug Fixes:
+     * 27073: False positive in RequireUpperCaseHeredocTerminator
      * ValuesAndExpressions::ProhibitCommaSeparatedStatements was complaining
        about multiple values in the list to be iterated over by a foreach
        loop.
 
+
 [1.051]  Released on 2007-04-12
 
      *DEVELOPMENT RELEASE*
index 97238c3..472a74f 100644 (file)
@@ -16,7 +16,7 @@ our $VERSION = 1.051;
 
 #-----------------------------------------------------------------------------
 
-my $heredoc_rx = qr{ \A << ["|']? [A-Z_] [A-Z0-9_]* ['|"]? \z }x;
+my $heredoc_rx = qr{ \A << \s* ["|']? [A-Z_] [A-Z0-9_]* ['|"]? \z }x;
 my $desc       = q{Heredoc terminator not alphanumeric and upper-case};
 my $expl       = [ 64 ];