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