From: Russ Allbery Date: Mon, 14 Jul 2008 02:54:18 +0000 (+0000) Subject: DEVEL15-man-page-html-generation-hack-20080713 X-Git-Tag: openafs-devel-1_5_50~20 X-Git-Url: https://git.michaelhowe.org/gitweb/?a=commitdiff_plain;h=988a6de64e5ad1b7f133be93df7b08c3d8624f13;p=packages%2Fo%2Fopenafs.git DEVEL15-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. (cherry picked from commit 2a92f43987cd08dc0134b775e0d118894d22d3e5) --- diff --git a/doc/man-pages/generate-html b/doc/man-pages/generate-html index 11d47c698..83570b1bb 100755 --- a/doc/man-pages/generate-html +++ b/doc/man-pages/generate-html @@ -37,6 +37,24 @@ $Pod::Simple::HTML::Tagmap{'/item-bullet'} = '

'; $Pod::Simple::HTML::Tagmap{'item-number'} = '

  • '; $Pod::Simple::HTML::Tagmap{'/item-number'} = '

    • '; +# 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; @@ -44,6 +62,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';