Perl::Critic::Policy::Bangs::ProhibitUselessRegexModifiers - Adding modifiers to a regular expression made up entirely of a variable created with qr() is usually not doing what you expect.
This Policy is part of the Perl::Critic::Bangs distribution.
In older versions of perl, the modifiers on regular expressions where incorrectly applied. This was fixed in 5.10, but no warnings were emitted to warn the user that they were probably not getting the effects they are looking for.
correct: my $regex = qr(abc)m; if ( $string =~ /$regex/ ) {};
Not what you want:: my $regex = qr(abc); if ( $string =~ /$regex/m ) {}; ## this triggers a violation of this policy.
See the thread that starts at: http://www.nntp.perl.org/group/perl.perl5.porters/2007/12/msg131709.html for a description of how this problem can bite the users.
And see: http://rt.perl.org/rt3//Public/Bug/Display.html?id=22354 for a description of the bug and subsequent fix.
This Policy is not configurable except for the standard options.
Andrew Moore <amoore@mooresystems.com>
Adapted from policies by Jeffrey Ryan Thalhammer <thaljef at cpan.org>, Thanks to Andy Lester, "<andy at petdance.com>" for pointing out this common problem.
Copyright (c) 2007-2009 Andy Lester <andy@petdance.com> and Andrew Moore <amoore@mooresystems.com>
This library is free software; you can redistribute it and/or modify it under the terms of either the GNU Public License v3, or the Artistic License 2.0.
* http://www.gnu.org/copyleft/gpl.html * http://www.opensource.org/licenses/artistic-license-2.0.php
To install Perl::Critic::Bangs, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Perl::Critic::Bangs
CPAN shell
perl -MCPAN -e shell install Perl::Critic::Bangs
For more information on module installation, please visit the detailed CPAN module installation guide.