mirror of
https://git.openafs.org/openafs.git
synced 2025-01-18 23:10:58 +00:00
man-page-html-generation-hack-20080713
LICENSE BSD Pod::Simple::Search ignores every POD file that doesn't "look right," which means it skips files containing a period (like krb.conf.pod) unless you set a search option. Pod::Simple::HTMLBatch has no way to set search options. Apply a truly horrible hack to get around this.
This commit is contained in:
parent
298fb5ce52
commit
2a92f43987
@ -59,6 +59,24 @@ $Pod::Simple::HTML::Tagmap{'/item-bullet'} = '</p></li>';
|
||||
$Pod::Simple::HTML::Tagmap{'item-number'} = '<li><p>';
|
||||
$Pod::Simple::HTML::Tagmap{'/item-number'} = '</p></li>';
|
||||
|
||||
# This horrific hack is required because Pod::Simple::HTMLBatch has no way
|
||||
# of setting search options and we have to set laborious to true in order
|
||||
# to pick up man pages like krb.conf(5).
|
||||
package OpenAFS::Search;
|
||||
|
||||
use strict;
|
||||
use vars qw(@ISA);
|
||||
|
||||
use Pod::Simple::Search;
|
||||
@ISA = qw(Pod::Simple::HTML);
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my $object = Pod::Simple::Search->new;
|
||||
$object->laborious (1);
|
||||
return $object;
|
||||
}
|
||||
|
||||
package main;
|
||||
|
||||
use strict;
|
||||
@ -66,6 +84,9 @@ use strict;
|
||||
use File::Copy;
|
||||
use Pod::Simple::HTMLBatch;
|
||||
|
||||
# Override the search class to set laborious.
|
||||
$Pod::Simple::HTMLBatch::SEARCH_CLASS = 'OpenAFS::Search';
|
||||
|
||||
our $HEADER = <<'EOH';
|
||||
<html>
|
||||
<head>
|
||||
|
Loading…
Reference in New Issue
Block a user