--- rxvt-unicode/doc/podtbl 2016/06/22 07:30:52 1.6 +++ rxvt-unicode/doc/podtbl 2020/10/10 20:06:03 1.7 @@ -27,8 +27,8 @@ ); # 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; $_ } @$_; } @@ -82,11 +82,11 @@ # print $fh "=begin xhtml\n\n"; print $fh "=for xhtml "; - print $fh map "", @$table; + print $fh map "", @$table; print $fh "
" . +(join "", htmlfcodes @$_) . "
" . +(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";