--- rxvt-unicode/doc/podtbl 2007/11/10 09:40:51 1.4
+++ rxvt-unicode/doc/podtbl 2020/10/10 20:06:03 1.7
@@ -22,13 +22,13 @@
L => "i", # broken
F => "tt",
S => "nobr", # non-std
- X => "span", # brokwn
- Z => "span", # brokwn
+ X => "span", # broken
+ Z => "span", # broken
);
# strip formatting codes, dumb version
map {
- s/([IBCLFSXZ])<< (.*?) >>/<$tag{$1}>$2<\/$tag{$1}>/gs;
- s/([IBCLFSXZ])<(.*?)>/<$tag{$1}>$2<\/$tag{$1}>/gs;
+ s/([IBCLFSXZ])<< (.*?) >>/<$tag{$1}>$2 <\/$tag{$1}>/gs;
+ s/([IBCLFSXZ])<(.*?)>/<$tag{$1}>$2 <\/$tag{$1}>/gs;
$_
} @$_;
}
@@ -81,8 +81,12 @@
# pod::xhtml fails on begin/end blocks
# print $fh "=begin xhtml\n\n";
+ print $fh "=for xhtml
";
+ print $fh map "" . +(join " | ", htmlfcodes @$_) . " |
", @$table;
+ print $fh "
\n\n";
+
print $fh "=for html ";
- print $fh map "" . +(join " | ", htmlfcodes @$_) . " |
", @$table;
+ print $fh map "" . +(join " | ", htmlfcodes @$_) . " |
", @$table;
print $fh "
\n\n";
# print $fh "\n=end xhtml\n\n";