epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

dbdToHtml fix to support Perl 5.8

Browse Source
This commit is contained in:
Andrew Johnson
2014-10-06 13:26:37 -05:00
parent 2d0ea1e3bb
commit 3d6fba6802
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/tools/dbdToHtml.pl
View File

@@ -114,12 +114,13 @@ if ($::XHTML) {
<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN'
'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>
__END_DOCTYPE
$podHtml->html_header_tags($podHtml->html_header_tags .
"\n<link rel='stylesheet' href='style.css' type='text/css'>");
} else { # Fall back to HTML
$podHtml = Pod::Simple::HTML->new();
$podHtml->html_css('style.css');
}
$podHtml->html_header_tags($podHtml->html_header_tags .
"\n<link rel='stylesheet' href='style.css' type='text/css'>");
$podHtml->force_title(encode_entities($title));
$podHtml->perldoc_url_prefix('');
$podHtml->perldoc_url_postfix('.html');