From f27ed0be56c5563bef6f8ee2614b8b9cff6f9008 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 30 Dec 2017 11:29:15 -0800
Subject: [PATCH] avoid reassigning to temp upon decode_utf8
- Failing to do causes $rhs/$lhs to be UTF8 decoded for some reason
that I don't understand completely
---
src/Factoids/Statement.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Factoids/Statement.pl b/src/Factoids/Statement.pl
index b7cb0a7..1cc50cb 100644
--- a/src/Factoids/Statement.pl
+++ b/src/Factoids/Statement.pl
@@ -119,8 +119,8 @@ sub doStatement {
# 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");
--
2.39.5