1 use v5.10;

     1 use v5.10;

     2 use strict;

     2 use strict;

     3 use warnings;

     3 use warnings;

     4 

     4 

     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(sub{

    12     -f -x or return;

    12     -f -x or return;

    13     system("perl -Mblib -c $_ &>/dev/null");

    13     system("perl -Mblib -c $_ &>/dev/null");

    14     is($? => 0, "syntax $File::Find::name");

    14     is($? => 0, "syntax $File::Find::name");

    15 }, "blib/");

    15 }, "blib/");