Add VCS rules for Darcs

dagolden · Feb 4, 2014 · 64571f2 · 64571f2
1 parent 0eb98f9
commit 64571f2
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 1 deletion.
diff --git a/lib/Path/Iterator/Rule.pm b/lib/Path/Iterator/Rule.pm
@@ -660,8 +660,11 @@ my %vcs_rules = (
     skip_hg => sub {
         return Path::Iterator::Rule->new->skip_dirs('.hg');
     },
+    skip_darcs => sub {
+        return Path::Iterator::Rule->new->skip_dirs('_darcs');
+    },
     skip_vcs => sub {
-        return Path::Iterator::Rule->new->skip_dirs(qw/.git .bzr .hg CVS RCS/)
+        return Path::Iterator::Rule->new->skip_dirs(qw/.git .bzr .hg _darcs CVS RCS/)
           ->skip_svn->not_name( qr/\.\#$/, qr/,v$/ );
     },
 );

diff --git a/pod/lib/Path/Iterator/Rule.pm b/pod/lib/Path/Iterator/Rule.pm
@@ -320,6 +320,7 @@ of Perl distribution files.
   $rule->skip_git;
   $rule->skip_bzr;
   $rule->skip_hg;
+  $rule->skip_darcs;
 
 Skips files and/or prunes directories related to a version control system.
 Just like C<skip_dirs>, these rules should be specified early to get the

diff --git a/t/vcs.t b/t/vcs.t
@@ -19,6 +19,7 @@ my @tree = qw(
   cccc/.bzr/foo
   cccc/.git/foo
   cccc/.hg/foo
+  cccc/_darcs/foo
   cccc/CVS/foo
   cccc/RCS/foo
 );