Escape delim in `factchange` command to allow delimiters such as the pipe character

2015-09-30 09:50:37 -07:00 · 2015-09-30 09:50:37 -07:00 · a3df01bae3
parent a562f79956
commit a3df01bae3
1 changed files with 2 additions and 0 deletions
--- a/PBot/FactoidCommands.pm
+++ b/PBot/FactoidCommands.pm
@ -943,6 +943,8 @@ sub factchange {
      $keyword = $2; 
      $delim = $3;
    }
+
+    $delim = quotemeta $delim;
    
    if($arguments =~ /$delim(.*?)$delim(.*)$delim(.*)?$/) {
      $tochange = $1;