From 999ee4a33c680cd42a81faacae2d06c3c825aea2 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Wed, 26 Feb 2020 02:30:26 -0800
Subject: [PATCH] Interpreter: Fix potential undefined variable

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

diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm
index 38f550a0..b27a5dd5 100644
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@@ -706,7 +706,7 @@ sub lc_args {
 sub truncate_result {
     my ($self, $from, $nick, $text, $original_result, $result, $paste) = @_;
     my $max_msg_len = $self->{pbot}->{registry}->get_value('irc', 'max_msg_len');
-    $max_msg_len -= length "PRIVMSG $from :";
+    $max_msg_len -= length "PRIVMSG $from :" if defined $from;
 
     utf8::encode $result;
     utf8::encode $original_result;
@@ -817,8 +817,7 @@ sub handle_result {
             my ($chan, $trigger) = $self->{pbot}->{factoids}->find_factoid($stuff->{from}, $cmd, arguments => $args, exact_channel => 1, exact_trigger => 0, find_alias => 1);
             if (defined $trigger) {
                 if ($stuff->{preserve_whitespace} == 0) {
-                    $stuff->{preserve_whitespace} = $self->{pbot}->{factoids}->{factoids}->get_data($chan, $trigger, 'preserve_whitespace');
-                    $stuff->{preserve_whitespace} = 0 if not defined $stuff->{preserve_whitespace};
+                    $stuff->{preserve_whitespace} = $self->{pbot}->{factoids}->{factoids}->get_data($chan, $trigger, 'preserve_whitespace') // 0;
                 }
 
                 $use_output_queue = $self->{pbot}->{factoids}->{factoids}->get_data($chan, $trigger, 'use_output_queue');