equal
deleted
inserted
replaced
4 |
4 |
5 use Test::More qw(no_plan); |
5 use Test::More qw(no_plan); |
6 use File::Find; |
6 use File::Find; |
7 |
7 |
8 plan skip_all => "no blib directories in \@INC" |
8 plan skip_all => "no blib directories in \@INC" |
9 if not /blib/ ~~ @INC; |
9 if not /blib/ ~~ @INC; |
10 |
10 |
11 find(sub{ |
11 find( |
12 -f -x or return; |
12 sub { |
13 system("perl -Mblib -c $_ &>/dev/null"); |
13 -f -x or return; |
14 is($? => 0, "syntax $File::Find::name"); |
14 system("perl -Mblib -c $_ &>/dev/null"); |
15 }, "blib/"); |
15 is( $? => 0, "syntax $File::Find::name" ); |
|
16 }, |
|
17 "blib/" |
|
18 ); |