From 9192b7bfadf0f3d76c101c6053f0cc82be9906db Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Tue, 1 Oct 2024 13:08:52 -0700
Subject: [PATCH] pbot-vm: Preserve escapes in -args and -stdin

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

diff --git a/applets/pbot-vm/guest/lib/Languages/_c_base.pm b/applets/pbot-vm/guest/lib/Languages/_c_base.pm
index e9811a69..d0ffb71c 100755
--- a/applets/pbot-vm/guest/lib/Languages/_c_base.pm
+++ b/applets/pbot-vm/guest/lib/Languages/_c_base.pm
@@ -85,7 +85,7 @@ sub postprocess {
 
     my $ulimits = "ulimit -f 2000; ulimit -t 8; ulimit -u 200";
 
-    my @args = $self->split_line($self->{arguments}, strip_quotes => 1, preserve_escapes => 0);
+    my @args = $self->split_line($self->{arguments}, strip_quotes => 1, preserve_escapes => 1);
 
     my $quoted_args = '';
 
diff --git a/applets/pbot-vm/guest/lib/Languages/_default.pm b/applets/pbot-vm/guest/lib/Languages/_default.pm
index cab2189f..f074af88 100755
--- a/applets/pbot-vm/guest/lib/Languages/_default.pm
+++ b/applets/pbot-vm/guest/lib/Languages/_default.pm
@@ -217,7 +217,7 @@ sub split_line {
 sub quote_args {
     my ($self, $text) = @_;
 
-    my @args = $self->split_line($text, strip_quotes => 1, preserve_escapes => 0);
+    my @args = $self->split_line($text, strip_quotes => 1, preserve_escapes => 1);
 
     my $quoted = '';
 
diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm
index e71dd58b..7f6b2da3 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 => 4791,
-    BUILD_DATE     => "2024-09-28",
+    BUILD_REVISION => 4793,
+    BUILD_DATE     => "2024-10-01",
 };
 
 sub initialize {}