- Failing to do causes $rhs/$lhs to be UTF8 decoded for some reason
that I don't understand completely
# characters.
### this can be simplified.
for my $temp ($lhs,$rhs ) {
- $temp = decode_utf8($temp);
- if ($temp =~ /([^[:print:]])/ or $temp =~ /\N{U+FFFD}/) {
+ my $temp2 = decode_utf8($temp);
+ if ($temp2 =~ /([^[:print:]])/ or $temp2 =~ /\N{U+FFFD}/) {
&status("statement: illegal character '$1' ".ord($1).".");
&performAddressedReply(
"i'm not going to learn illegal characters");