Limit truncation pastes to 8000 bytes

2017-08-24 15:16:42 -07:00 · 2017-08-24 15:16:42 -07:00 · 17a62b48e4
parent f6827aa886
commit 17a62b48e4
1 changed files with 1 additions and 0 deletions
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@ -241,6 +241,7 @@ sub truncate_result {
  if(length $result > $max_msg_len) {
    my $link;
    if($paste) {
+      $original_result = substr $original_result, 0, 8000;
      $link = $self->paste("[" . (defined $from ? $from : "stdin") . "] <$nick> $text\n\n$original_result");
    } else {
      $link = 'undef';