| Subject: | please add support for mercurial |
attached is a patch which adds support for mercurial
| Subject: | hg.patch |
diff --git a/lib/strictures.pm b/lib/strictures.pm
index fb019d4..ba7f93d 100644
--- a/lib/strictures.pm
+++ b/lib/strictures.pm
@@ -23,8 +23,8 @@ sub VERSION {
our $extra_load_states;
-our $Smells_Like_VCS = (-e '.git' || -e '.svn'
- || (-e '../../dist.ini' && (-e '../../.git' || -e '../../.svn')));
+our $Smells_Like_VCS = (-e '.git' || -e '.svn' || -e '.hg'
+ || (-e '../../dist.ini' && (-e '../../.git' || -e '../../.svn' || -e '../../.hg')));
sub import {
strict->import;
@@ -104,11 +104,12 @@ except when called from a file which matches:
(caller)[1] =~ /^(?:t|xt|lib|blib)/
-and when either C<.git> or C<.svn> is present in the current directory (with
-the intention of only forcing extra tests on the author side) -- or when C<.git>
-or C<.svn> is present two directories up along with C<dist.ini> (which would
-indicate we are in a C<dzil test> operation, via L<Dist::Zilla>) --
-or when the C<PERL_STRICTURES_EXTRA> environment variable is set, in which case
+and when either C<.git> or C<.svn> or C<.hg> is present in the current
+directory (with the intention of only forcing extra tests on the
+author side) -- or when C<.git> or C<.svn> or C<.hg> is present two
+directories up along with C<dist.ini> (which would indicate we are in
+a C<dzil test> operation, via L<Dist::Zilla>) -- or when the
+C<PERL_STRICTURES_EXTRA> environment variable is set, in which case
use strictures 1;