202,204c202,206 < return unless /\.p(?:m|od)\z/; < s/\.pod\z/.pm/; # if it's POD, parse the corresponding code < return if not -f; --- > 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 ); > 207,209c209,211 < get_module_version( $_ ), < get_module_description( $_, $opt_limit ), < $opt_path ? $File::Find::name : undef, --- > $version, > $desc, > $opt_path ? $File::Find::name : undef