diff options
Diffstat (limited to 'dist/Pod-Perldoc/lib/Pod')
| -rw-r--r-- | dist/Pod-Perldoc/lib/Pod/Perldoc.pm | 10 | ||||
| -rw-r--r-- | dist/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm | 1 |
2 files changed, 10 insertions, 1 deletions
diff --git a/dist/Pod-Perldoc/lib/Pod/Perldoc.pm b/dist/Pod-Perldoc/lib/Pod/Perldoc.pm index b8c91812f8..cdfea459ad 100644 --- a/dist/Pod-Perldoc/lib/Pod/Perldoc.pm +++ b/dist/Pod-Perldoc/lib/Pod/Perldoc.pm @@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir); use vars qw($VERSION @Pagers $Bindir $Pod2man $Temp_Files_Created $Temp_File_Lifetime ); -$VERSION = '3.15_06'; +$VERSION = '3.15_07'; #.......................................................................... BEGIN { # Make a DEBUG constant very first thing... @@ -731,6 +731,9 @@ sub grand_search_init { my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1); $fh->print($response->{content}); push @found, $filename; + ($self->{podnames}{$filename} = + m{.*/([^/#?]+)} ? uc $1 : "UNKNOWN") + =~ s/\.P(?:[ML]|OD)\z//; } else { print STDERR "No " . @@ -1141,6 +1144,11 @@ sub render_findings { $self->{'output_is_binary'} = $formatter->can('write_with_binmode') && $formatter->write_with_binmode; + if( $self->{podnames} and exists $self->{podnames}{$file} and + $formatter->can('name') ) { + $formatter->name($self->{podnames}{$file}); + } + my ($out_fh, $out) = $self->new_output_file( ( $formatter->can('output_extension') && $formatter->output_extension ) || undef, diff --git a/dist/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm b/dist/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm index 09b0e81737..f456a2475a 100644 --- a/dist/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm +++ b/dist/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm @@ -26,6 +26,7 @@ sub fixed { shift->_perldoc_elem('fixed' , @_) } sub fixedbold { shift->_perldoc_elem('fixedbold' , @_) } sub fixeditalic { shift->_perldoc_elem('fixeditalic' , @_) } sub fixedbolditalic { shift->_perldoc_elem('fixedbolditalic', @_) } +sub name { shift->_perldoc_elem('name' , @_) } sub quotes { shift->_perldoc_elem('quotes' , @_) } sub release { shift->_perldoc_elem('release' , @_) } sub section { shift->_perldoc_elem('section' , @_) } |