diff --git a/lib/Pod/Simple/HTML.pm b/lib/Pod/Simple/HTML.pm
index 6e9359c..bbacd11 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/man';
+our $Man_URL_Postfix = '.html';
our $Title_Prefix;
$Title_Prefix = '' unless defined $Title_Prefix;
@@ -59,7 +59,7 @@ __PACKAGE__->_accessorize(
# In turning L into http://whatever/man/1/crontab, what
# to put before the "1/crontab".
'man_url_postfix',
- # what to put after the "1/crontab" in the URL. Normally "".
+ # what to put after the "1/crontab" in the URL. Normally ".html".
'batch_mode', # whether we're in batch mode
'batch_mode_current_level',
@@ -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..8b4e184 100644
--- a/lib/Pod/Simple/XHTML.pm
+++ b/lib/Pod/Simple/XHTML.pm
@@ -131,11 +131,12 @@ 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/man".
=head2 man_url_postfix
-What to put after "1/crontab" in the URL. This option is not set by default.
+What to put after "1/crontab" in the URL.
+This option is set to ".html" by default.
=head2 title_prefix, title_postfix
@@ -276,7 +277,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/man');
$new->html_charset('ISO-8859-1');
$new->nix_X_codes(1);
$new->{'scratch'} = '';
@@ -774,14 +775,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
-include linkable IDs or anchor names in its pages. Subclass to link to a
-different man page HTTP server.
+currently ignored. Subclass to link to a different man page HTTP server.
=cut
@@ -905,11 +904,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..2b3db22 100644
--- a/t/fcodes_s.t
+++ b/t/fcodes_s.t
@@ -215,7 +215,8 @@ 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/man";
+my $MANURL_POSTFIX = ".html";
sub x {
Pod::Simple::HTML->_out(
sub { $_[0]->bare_output(1) },
diff --git a/t/xhtml01.t b/t/xhtml01.t
index 22c6f41..f8182fd 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/man";
initialize($parser, $results);
$parser->parse_string_document( "=head1 Poit!" );