--- rxvt-unicode/doc/podtbl 2004/08/14 03:07:50 1.2
+++ rxvt-unicode/doc/podtbl 2007/12/13 00:43:57 1.5
@@ -22,8 +22,8 @@
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 {
@@ -44,7 +44,7 @@
shift;
return $self->SUPER::command (@_);
}
-}
+}
sub verbatim {
my ($self, $para) = @_;
@@ -67,7 +67,7 @@
print $fh "\n=end text\n\n";
-
+
# tbl
print $fh "=begin roff\n\n";
@@ -78,13 +78,14 @@
print $fh "\n=end roff\n\n";
# html
- print $fh "=begin html\n\n";
+ # pod::xhtml fails on begin/end blocks
+# print $fh "=begin xhtml\n\n";
- print $fh "
\n";
- print $fh map "" . +(join " | ", htmlfcodes @$_) . " |
\n", @$table;
- print $fh "
\n";
+ print $fh "=for html ";
+ print $fh map "" . +(join " | ", htmlfcodes @$_) . " |
", @$table;
+ print $fh "
\n\n";
- print $fh "\n=end html\n\n";
+# print $fh "\n=end xhtml\n\n";
}