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;