48,51d47 < =item B<-x>, B<--prunepaths> < < Directories to omit from the search for perl modules. < 191d186 < 'prunepaths|x=s@' => \( my $excludes ), 207,213c202,204 < check_prune($_) && ( $File::Find::prune = 1 ) if $excludes; < < return unless -f and /\A(.+)\.pm\z/; < my $module = $1; < my $version = get_module_version( "$module.pm" ) || -e "$module.pod" && get_module_version( "$module.pod" ); < my $desc = get_module_description( "$module.pm", $opt_limit ) || -e "$module.pod" && get_module_description( "$module.pod", $opt_limit ); < --- > return unless /\.p(?:m|od)\z/; > s/\.pod\z/.pm/; # if it's POD, parse the corresponding code > return if not -f; 216,218c207,209 < $version, < $desc, < $opt_path ? $File::Find::name : undef --- > get_module_version( $_ ), > get_module_description( $_, $opt_limit ), > $opt_path ? $File::Find::name : undef, 250,254d240 < < sub check_prune { < my $name = shift; < return 1 if grep( /\A$name\z/s, @$excludes ) > 0 and -d $name; < }