1 # TODO: turn this into a REAL diff
2 # what we did: we added the line with @ stuff
4 # replace invalid utf8 character with SUBSTITUTION sequence
9 return undef unless defined $str;
12 $str = $cgi->escapeHTML($str);
17 $str =~ s|([[:cntrl:]])|(($1 ne "\t") ? quot_cec($1) : $1)|eg;