t/000-syntax.t
changeset 32 02ef2d1b190a
parent 20 6c5ad12e1f2d
child 72 2a7ab8422dd6
--- a/t/000-syntax.t	Fri Jul 29 11:09:36 2011 +0200
+++ b/t/000-syntax.t	Fri Jul 29 14:52:05 2011 +0200
@@ -6,7 +6,7 @@
 use File::Find;
 
 my @scripts;
-find(sub { push @scripts, $File::Find::name if -f and -x }, "blib");
+find(sub { /^\./ and return; push @scripts, $File::Find::name if -f and -x }, "blib");
 
 plan tests => scalar @scripts;