diff options
| -rw-r--r-- | dist/Pod-Perldoc/lib/Pod/Perldoc.pm | 10 | ||||
| -rw-r--r-- | dist/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm | 1 | ||||
| -rw-r--r-- | pod/perldelta.pod | 7 |
3 files changed, 17 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' , @_) } diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 9820c0aea0..98d56fb348 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -338,6 +338,13 @@ L<perlfaq> has been upgraded from version 5.01500302 to version 5.0150034. =item * +L<Pod::Perldoc> has been upgraded from version 3.15_06 to 3.15_07. + +When rendering a file specified as an HTTP URL, it now use a manpage name +based on the URL, instead of the name of the temporary file. + +=item * + L<Pod::Simple> has been upgraded from version 3.18 to version 3.19. =item * |