From c399116c4eefb01d129c18de09073e7ac69471a7 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sun, 30 Jun 2019 20:47:49 -0700
Subject: [PATCH] WebPaste: Encode output as UTF-8

---
 PBot/WebPaste.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/PBot/WebPaste.pm b/PBot/WebPaste.pm
index 374374bd..5867e137 100644
--- a/PBot/WebPaste.pm
+++ b/PBot/WebPaste.pm
@@ -16,6 +16,7 @@ use Time::HiRes qw/gettimeofday/;
 use Time::Duration;
 use LWP::UserAgent;
 use Carp ();
+use Encode;
 
 sub new {
   if (ref($_[1]) eq 'HASH') {
@@ -55,9 +56,10 @@ sub get_paste_site {
 sub paste {
   my ($self, $text) = @_;
 
+  $text = encode('UTF-8', $text);
   $text =~ s/(.{120})\s/$1\n/g;
-  my $result;
 
+  my $result;
   for (my $tries = 5; $tries > 0; $tries--) {
     my $paste_site = $self->get_paste_site;
     $result = $paste_site->($text);