From 12a92ea7d3b18ad70e7ab9ecf4141ec932c603e1 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 2 Sep 2017 00:40:46 -0700
Subject: [PATCH] Replace control chars with escaped ordinals

---
 PBot/Factoids.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/PBot/Factoids.pm b/PBot/Factoids.pm
index c925aa6d..bc63b6b9 100644
--- a/PBot/Factoids.pm
+++ b/PBot/Factoids.pm
@@ -621,6 +621,7 @@ sub execute_code_factoid {
   }
 
   $action = substr $action, 0, 400;
+  $action =~ s/([\01-\010]|[\016-\037])/'\\' . ord $1/ge;
 
   %SIG = %signals;
   alarm 1;