[Rt-commit] r8023 - rt/branches/3.6-RELEASE/lib/t/regression

[nicholas at bestpractical.com]

Author: nicholas
Date: Mon Jun 25 08:55:26 2007
New Revision: 8023

Modified:
   rt/branches/3.6-RELEASE/lib/t/regression/00-mason-syntax.t

Log:
Need to skip all files in .svn directories when searching for files to test
load into Mason.


Modified: rt/branches/3.6-RELEASE/lib/t/regression/00-mason-syntax.t
==============================================================================
--- rt/branches/3.6-RELEASE/lib/t/regression/00-mason-syntax.t	(original)
+++ rt/branches/3.6-RELEASE/lib/t/regression/00-mason-syntax.t	Mon Jun 25 08:55:26 2007
@@ -12,6 +12,10 @@
     no_chdir => 1,
     wanted   => sub {
         return if /\.(?:jpe?g|png|gif|rej|\~)$/i;
+	if (m!/\.svn$!) {
+	    $File::Find::prune = 1;
+	    return;
+	}
         return unless -f $_;
         diag "testing $_" if $ENV{'TEST_VERBOSE'};
         eval { compile_file($_) } and return;