Changeset 2846

Timestamp:

2001-11-23T16:10:45+13:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/perllib/doc.pm

@@ -185 +185 @@
     $all_text .=  "</Section>\n";
 
+    # make sure no nasty control characters have snuck through
+    # (XML::Parser will barf on anything it doesn't consider to be
+    # valid UTF-8 text, including things like \c@, \cC etc.)
+    $all_text =~ s/[\x00-\x07\x14-\x1F]//g;
+
     return $all_text;
 }