Login
Simplify the regexes for the default global variables that are exempt
authorElliot Shank <perl@galumph.com>
Mon, 29 Sep 2008 01:02:53 +0000 (01:02 +0000)
committerElliot Shank <perl@galumph.com>
Mon, 29 Sep 2008 01:02:53 +0000 (01:02 +0000)
from Capitalization.

lib/Perl/Critic/Policy/NamingConventions/Capitalization.pm

index e455266..12c95e3 100644 (file)
@@ -139,7 +139,7 @@ sub supported_parameters {
         {
             name               => 'global_variable_exemptions',
             description        => 'Global variable names that are exempt from capitalization rules.  The values here are regexes.',
-            default_string     => '\$VERSION @ISA @EXPORT @EXPORT_OK @EXPORT_TAGS',
+            default_string     => '\$VERSION @ISA @EXPORT(?:_OK)? %EXPORT_TAGS',
             behavior           => 'string list',
         },
         {