From 89f38026d3b30f47d31f5d27910bb886e9fbab24 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 21 May 2018 18:02:16 -0700
Subject: [PATCH] Fix preserve whitespace setting

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

diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm
index afd2232d..a9b83f8d 100644
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@@ -444,7 +444,7 @@ sub handle_result {
   my $preserve_newlines = $self->{pbot}->{registry}->get_value($stuff->{from}, 'preserve_newlines');
 
   $result =~ s/[\n\r]/ /g unless $preserve_newlines;
-  $result =~ s/[ \t]+/ /g unless $self->{preserve_whitespace};
+  $result =~ s/[ \t]+/ /g unless $stuff->{preserve_whitespace};
 
   my $max_lines = $self->{pbot}->{registry}->get_value($stuff->{from}, 'max_newlines');
   $max_lines = 4 if not defined $max_lines;