| changeset 32 | 02ef2d1b190a |
| parent 20 | 6c5ad12e1f2d |
| child 72 | 2a7ab8422dd6 |
| 29:4a1820d504c4 | 32:02ef2d1b190a |
|---|---|
4 use Test::More; |
4 use Test::More; |
5 |
5 |
6 use File::Find; |
6 use File::Find; |
7 |
7 |
8 my @scripts; |
8 my @scripts; |
9 find(sub { push @scripts, $File::Find::name if -f and -x }, "blib"); |
9 find(sub { /^\./ and return; push @scripts, $File::Find::name if -f and -x }, "blib"); |
10 |
10 |
11 plan tests => scalar @scripts; |
11 plan tests => scalar @scripts; |
12 |
12 |
13 foreach (@scripts) { |
13 foreach (@scripts) { |
14 my $e = `perl -c $_ 2>&1`; |
14 my $e = `perl -c $_ 2>&1`; |