From 13b09be29abc4310b03be76e9c9868b0b4e0e4c5 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Thu, 23 Feb 2023 13:16:17 -0800
Subject: [PATCH] Commands/Factoids: `factchange`: handle escaped delimiters

---
 lib/PBot/Core/Commands/Factoids.pm | 4 ++--
 lib/PBot/VERSION.pm                | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/PBot/Core/Commands/Factoids.pm b/lib/PBot/Core/Commands/Factoids.pm
index 59a7e32a..015579e6 100644
--- a/lib/PBot/Core/Commands/Factoids.pm
+++ b/lib/PBot/Core/Commands/Factoids.pm
@@ -1254,11 +1254,11 @@ sub cmd_factchange {
         if (defined $sub) {
             $delim = quotemeta $delim;
 
-            if ($sub =~ /^s$delim(.*?)$delim(.*)$delim(.*)$/) {
+            if ($sub =~ /^s(?<!\\)$delim(.*?)(?<!\\)$delim(.*)(?<!\\)$delim(.*)$/) {
                 $tochange = $1;
                 $changeto = $2;
                 $modifier = $3;
-            } elsif ($sub =~ /^s$delim(.*?)$delim(.*)$/) {
+            } elsif ($sub =~ /^s(?<!\\)$delim(.*?)(?<!\\)$delim(.*)$/) {
                 $tochange = $1;
                 $changeto = $2;
                 $modifier = '';
diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm
index a112fd40..ea40f276 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 => 4622,
-    BUILD_DATE     => "2023-02-20",
+    BUILD_REVISION => 4623,
+    BUILD_DATE     => "2023-02-23",
 };
 
 sub initialize {}