git-svn-id: https://svn.code.sf.net/p/infobot/code/branches/don/dpkg@1911
c11ca15a-4712-0410-83d8-
924469b57eb5
# characters.
### this can be simplified.
for my $temp ($lhs,$rhs ) {
# characters.
### this can be simplified.
for my $temp ($lhs,$rhs ) {
- if ($temp =~ /([^[:print:]])/) {
+ $temp = decode_utf8($temp);
+ if ($temp =~ /([^[:print:]])/ or $temp =~ /\N{U+FFFD}/) {
&status("statement: illegal character '$1' ".ord($1).".");
&performAddressedReply(
"i'm not going to learn illegal characters");
&status("statement: illegal character '$1' ".ord($1).".");
&performAddressedReply(
"i'm not going to learn illegal characters");