From 8e21de1f60bb3d5751f0dced51caef56f1cbf21f Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 24 Jun 2019 16:47:31 -0700
Subject: [PATCH] Interpreter: split_line is now smarter about JSON and code

---
 PBot/Interpreter.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm
index 3a7238f3..af880cf1 100644
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@@ -550,7 +550,8 @@ sub split_line {
 
   my %default_opts = (
     strip_quotes => 0,
-    keep_spaces => 0
+    keep_spaces => 0,
+    preserve_escapes => 1,
   );
 
   %opts = (%default_opts, %opts);
@@ -591,7 +592,11 @@ sub split_line {
     $spaces = 0 if $ch ne ' ';
 
     if ($escaped) {
-      $token .= "\\$ch";
+      if ($opts{preserve_escapes}) {
+        $token .= "\\$ch";
+      } else {
+        $token .= $ch;
+      }
       $escaped = 0;
       next;
     }
@@ -615,7 +620,7 @@ sub split_line {
       next;
     }
 
-    if ($last_ch eq ' ' and not defined $quote and ($ch eq "'" or $ch eq '"')) {
+    if (($last_ch eq ' ' or $last_ch eq ':' or $last_ch eq '(') and not defined $quote and ($ch eq "'" or $ch eq '"')) {
       if ($ignore_quote) {
         # treat unbalanced quote as part of this argument
         $token .= $ch;