From 7a53f74e83766ab07d288bb33a6bf7d1bed3a54a Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Thu, 30 Nov 2017 18:50:17 -0800
Subject: [PATCH] Handle commands/pipes with newlines

---
 PBot/Interpreter.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm
index bac3b6fc..ebb61819 100644
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@@ -256,7 +256,7 @@ sub interpret {
 
   # parse out a pipe unless escaped
   if (defined $arguments && $arguments =~ m/(?<!\\)\|\s*\{\s*[^}]+\}\s*$/) {
-    $arguments =~ m/(.*?)\s*(?<!\\)\|\s*\{\s*([^}]+)\}(.*)/;
+    $arguments =~ m/(.*?)\s*(?<!\\)\|\s*\{\s*([^}]+)\}(.*)/s;
     my ($args, $pipe, $rest) = ($1, $2, $3);
     $pipe =~ s/\s+$//;