diff --git a/lib/Pod/Simple/HTML.pm b/lib/Pod/Simple/HTML.pm index 6e9359c..9635168 100644 --- a/lib/Pod/Simple/HTML.pm +++ b/lib/Pod/Simple/HTML.pm @@ -35,8 +35,8 @@ $Perldoc_URL_Postfix = '' unless defined $Perldoc_URL_Postfix; -our $Man_URL_Prefix = 'http://man.he.net/man'; -our $Man_URL_Postfix = ''; +our $Man_URL_Prefix = 'https://man7.org/linux/man-pages'; +our $Man_URL_Postfix = '.html'; our $Title_Prefix; $Title_Prefix = '' unless defined $Title_Prefix; @@ -797,7 +797,7 @@ sub resolve_man_page_link { $section ||= 1; return $self->man_url_prefix . "$section/" - . $self->manpage_url_escape($page) + . $self->manpage_url_escape($page) . ".$section" . $self->man_url_postfix; } @@ -1136,11 +1136,6 @@ This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. -=head1 ACKNOWLEDGEMENTS - -Thanks to L for permission to use its -L site for man page links. - =head1 AUTHOR Pod::Simple was created by Sean M. Burke . diff --git a/lib/Pod/Simple/XHTML.pm b/lib/Pod/Simple/XHTML.pm index 84c3a2d..de8ee10 100644 --- a/lib/Pod/Simple/XHTML.pm +++ b/lib/Pod/Simple/XHTML.pm @@ -131,7 +131,7 @@ default. In turning C<< L >> into http://whatever/man/1/crontab, what to put before the "1/crontab". The default value is -"http://man.he.net/man". +"https://man7.org/linux/man-pages". =head2 man_url_postfix @@ -276,7 +276,7 @@ sub new { my $new = $self->SUPER::new(@_); $new->{'output_fh'} ||= *STDOUT{IO}; $new->perldoc_url_prefix('https://metacpan.org/pod/'); - $new->man_url_prefix('http://man.he.net/man'); + $new->man_url_prefix('https://man7.org/linux/man-pages'); $new->html_charset('ISO-8859-1'); $new->nix_X_codes(1); $new->{'scratch'} = ''; @@ -774,12 +774,12 @@ sub resolve_pod_page_link { Resolves a man page link target and numeric section to a URL. The resulting link will be returned for the above examples as: - http://man.he.net/man5/crontab - http://man.he.net/man1/crontab + https://man7.org/linux/man-pages/man5/crontab.5.html + https://man7.org/linux/man-pages/man1/crontab.1.html Note that the first argument is required. The section number will be parsed from it, and if it's missing will default to 1. The second argument is -currently ignored, as L does not currently +currently ignored, as L does not currently include linkable IDs or anchor names in its pages. Subclass to link to a different man page HTTP server. @@ -905,11 +905,6 @@ This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. -=head1 ACKNOWLEDGEMENTS - -Thanks to L for permission to use its -L site for man page links. - =head1 AUTHOR Pod::Simple::XHTML was created by Allison Randal . diff --git a/t/fcodes_s.t b/t/fcodes_s.t index 8c9f1ce..03fdca5 100644 --- a/t/fcodes_s.t +++ b/t/fcodes_s.t @@ -215,7 +215,7 @@ is( # Test HTML output of links. use Pod::Simple::HTML; my $PERLDOC = "https://metacpan.org/pod"; -my $MANURL = "http://man.he.net/man"; +my $MANURL = "https://man7.org/linux/man-pages"; sub x { Pod::Simple::HTML->_out( sub { $_[0]->bare_output(1) }, diff --git a/t/xhtml01.t b/t/xhtml01.t index 22c6f41..88a6f11 100644 --- a/t/xhtml01.t +++ b/t/xhtml01.t @@ -11,7 +11,7 @@ isa_ok ($parser, 'Pod::Simple::XHTML'); my $results; my $PERLDOC = "https://metacpan.org/pod"; -my $MANURL = "http://man.he.net/man"; +my $MANURL = "https://man7.org/linux/man-pages"; initialize($parser, $results); $parser->parse_string_document( "=head1 Poit!" );