[Catalyst-commits] r14378 - CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2012-11-02 04:21:04 +0000 (Fri, 02 Nov 2012)
New Revision: 14378

Modified:
   CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm
Log:
skip .svn and .git dirs by default in File->search

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm	2012-11-02 04:09:24 UTC (rev 14377)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Model/File.pm	2012-11-02 04:21:04 UTC (rev 14378)
@@ -126,7 +126,12 @@
 
 sub make_query {
     my ($self) = @_;
-    return sub {1};
+    return sub {
+        my ( $root, $dir, $f ) = @_;
+        return 0
+            if $dir =~ m!/\.(svn|git)!;
+        return 1;
+    };
 }
 
 =head2 search( I<filter_CODE> )