--- rxvt-unicode/doc/podtbl 2004/08/14 03:07:50 1.2
+++ rxvt-unicode/doc/podtbl 2007/11/10 09:40:51 1.4
@@ -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";
}