--- 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 "<table>\n";
-   print $fh map "<tr><td>" . +(join "</td><td>", htmlfcodes @$_) . "</td></tr>\n", @$table;
-   print $fh "</table>\n";
+   print $fh "=for html <table>";
+   print $fh map "<tr><td>" . +(join "</td><td>", htmlfcodes @$_) . "</td></tr>", @$table;
+   print $fh "</table>\n\n";
 
-   print $fh "\n=end html\n\n";
+#   print $fh "\n=end xhtml\n\n";
 
 }