Changeset 3932

Timestamp:

2003-03-19T17:34:21+12:00 (21 years ago)

Author:

jrm21

Message:

need to escape _ chars.

File:

• trunk/gsdl/perllib/plugins/TEXTPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -122 +122 @@
     # we need to escape the escape character, or else mg will convert into
     # eg literal newlines, instead of leaving the text as '\n'
-    $$textref =~ s/\\/\\\\/g;
+    $$textref =~ s/\\/\\\\/g; # macro language
+    $$textref =~ s/_/\\_/g; # macro language
     $$textref =~ s/</&lt;/g;
     $$textref =~ s/>/&gt;/g;