Re: lspm — list names and descriptions of Perl modules in a directory

[naChoZ]

I wanted to add prunepaths support. This patch includes my changes as well as the patch that jwkrahn posted above.

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 $ex
+cludes;
< 
<                 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 t
+he corresponding code
>                               return if not -f;
216,218c207,209
<                     $version,
<                     $desc,
<                     $opt_path ? $File::Find::name : undef
---
>                                       get_module_version( $_ ),
>                                       get_module_description( $_, $o
+pt_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;
< }