From 1c57e01fad1b69140fdf69274854d06718dd562c Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 4 Apr 2022 22:32:53 -0700
Subject: [PATCH] pbot-vm: escape malformed Unicode on STDOUT

---
 applets/pbot-vm/host/lib/Languages/_default.pm | 4 ++++
 lib/PBot/VERSION.pm                            | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/applets/pbot-vm/host/lib/Languages/_default.pm b/applets/pbot-vm/host/lib/Languages/_default.pm
index b601334a..2b78b0fe 100755
--- a/applets/pbot-vm/host/lib/Languages/_default.pm
+++ b/applets/pbot-vm/host/lib/Languages/_default.pm
@@ -316,6 +316,10 @@ sub execute {
 
         if ($line =~ /^result:/) {
             $line =~ s/^result://;
+
+            my $octets = decode('UTF-8', $line, sub { sprintf '\\\\x%X', shift });
+            $line = encode('UTF-8', $octets, Encode::FB_CROAK);
+
             my $compile_out = decode_json($line);
             $result .= "$compile_out->{result}\n";
             $got_result = 1;
diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm
index 2f39064e..0ce3dc62 100644
--- a/lib/PBot/VERSION.pm
+++ b/lib/PBot/VERSION.pm
@@ -25,7 +25,7 @@ use PBot::Imports;
 # These are set by the /misc/update_version script
 use constant {
     BUILD_NAME     => "PBot",
-    BUILD_REVISION => 4525,
+    BUILD_REVISION => 4526,
     BUILD_DATE     => "2022-04-04",
 };