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.2