From a6e84d33180751b86c3c1e4d2633516f6fcc58aa Mon Sep 17 00:00:00 2001 From: root Date: Sat, 10 Oct 2020 20:06:03 +0000 Subject: *** empty log message *** --- doc/podtbl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'doc/podtbl') diff --git a/doc/podtbl b/doc/podtbl index 8d910e4..16514f1 100755 --- a/doc/podtbl +++ b/doc/podtbl @@ -27,8 +27,8 @@ sub htmlfcodes { ); # 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 @@ sub verbatim { # 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"; -- cgit v1.2.3