From 07b1d570bcbf1b7b6a64513c1338f15dd0685e5b Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 2 Feb 2026 12:53:44 -0800
Subject: [PATCH] pbot-vm: fix network chunking to use binary data instead of
 ASCII text

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

diff --git a/applets/pbot-vm/host/lib/Languages/_default.pm b/applets/pbot-vm/host/lib/Languages/_default.pm
index dfae119f..00a423ee 100755
--- a/applets/pbot-vm/host/lib/Languages/_default.pm
+++ b/applets/pbot-vm/host/lib/Languages/_default.pm
@@ -281,7 +281,7 @@ sub execute {
 
     $self->debug("compile_json: ", Dumper($compile_json), "\n") if $self->{debug} > 5;
 
-    my @lines = unpack("(A$chunk_size)*", $compile_json);
+    my @lines = unpack("(a$chunk_size)*", $compile_json);
     push @lines, '';
 
     $self->info("Lines:\n" . Dumper(\@lines) . "\n", 1, 8192) if $self->{debug} > 1;
@@ -514,7 +514,7 @@ sub info($self, $text, $timestamp = 1, $maxlen = 255) {
         print STDERR "[$$] $time :: $text";
         print { $self->{logh} } "[$$] $time :: $text";
     } else {
-        print STDERR $text;
+        print STDERR encode('UTF-8', $text);
         print { $self->{logh} } $text;
     }
 }
diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm
index a00bbdbc..19327958 100644
--- a/lib/PBot/VERSION.pm
+++ b/lib/PBot/VERSION.pm
@@ -25,8 +25,8 @@ use PBot::Imports;
 # These are set by the /misc/update_version script
 use constant {
     BUILD_NAME     => "PBot",
-    BUILD_REVISION => 4931,
-    BUILD_DATE     => "2025-12-20",
+    BUILD_REVISION => 4932,
+    BUILD_DATE     => "2026-02-02",
 };
 
 sub initialize {}