diff options
Diffstat (limited to 'docbook/make-wsluarm.pl')
-rwxr-xr-x | docbook/make-wsluarm.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/docbook/make-wsluarm.pl b/docbook/make-wsluarm.pl index 5c0b8db740..c4a06d21ff 100755 --- a/docbook/make-wsluarm.pl +++ b/docbook/make-wsluarm.pl @@ -40,8 +40,16 @@ sub gorolla { my $s = shift; $s =~ s/^([\n]|\s)*//ms; $s =~ s/([\n]|\s)*$//ms; + # as far as I can tell, these will only convert the *first* '<'/'>' they find in a line, but + # not subsequent ones in that line (because the flag isn't 'msg'?) -hadriel $s =~ s/\</</ms; $s =~ s/\>/>/ms; + # this is a horrible horrible hack, but it works + # basically we undo the replacements just made above, if it's a '</para>' or '<para>' case + # so that comments can include them for prettier output. Really this API generator thing needs + # to be rewritten, but I don't understand perl well enough to do it properly -hadriel + $s =~ s/<\/para>/<\/para>/ms; + $s =~ s/<para>/<para>/ms; $s; } |