Index: lib/Perl/Critic/Policy/Bangs/ProhibitNumberedNames.pm
===================================================================
--- lib/Perl/Critic/Policy/Bangs/ProhibitNumberedNames.pm (revision 4)
+++ lib/Perl/Critic/Policy/Bangs/ProhibitNumberedNames.pm (working copy)
@@ -10,8 +10,15 @@
sub applies_to { return 'PPI::Token::Symbol' }
our @DEFAULT_EXCEPTIONS = qw(
+ base64
md5
+ rc4
+ sha0
+ sha1
+ sha256
+ utf8
x11
+ win32
);
=head1 NAME
@@ -43,7 +50,7 @@
This policy starts with a list of numbered names that are legitimate
to have ending with a number:
- md5, x11
+ base64, md5, rc4, sha0, sha1, sha256, utf8, x11, win32
To replace the list of exceptions, pass them into the constructor
as a key-value pair where the key is "exceptions" and the value is