Changeset 2846
- Timestamp:
- 2001-11-23T16:10:45+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/doc.pm
r2810 r2846 185 185 $all_text .= "</Section>\n"; 186 186 187 # make sure no nasty control characters have snuck through 188 # (XML::Parser will barf on anything it doesn't consider to be 189 # valid UTF-8 text, including things like \c@, \cC etc.) 190 $all_text =~ s/[\x00-\x07\x14-\x1F]//g; 191 187 192 return $all_text; 188 193 }
Note:
See TracChangeset
for help on using the changeset viewer.