better documentation, allmost useful :-)

[webpac] / back2html.pm

diff --git a/back2html.pm b/back2html.pm
index 1df1342..d61922f 100644 (file)
--- a/back2html.pm
+++ b/back2html.pm
@@ -7,6 +7,8 @@
 sub back2html {
        my $html = shift;
 
+       $html =~ s/</&lt;/g;
+       $html =~ s/>/&gt;/g;
        my $out;
        foreach $line (split(/\s*###\s*/,$html)) {
                $out .= "<tr><td valign=\"top\">";