From 2cd4d5d37d0a9f8908396ea14be2a903ed1584c9 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sat, 14 Nov 2020 21:07:32 +0300
Subject: [PATCH] Newer perl wants more brackets :(

---
 lib/Net/Jabber/Bot.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Net/Jabber/Bot.pm b/lib/Net/Jabber/Bot.pm
index 5feb19b..f5f0177 100644
--- a/lib/Net/Jabber/Bot.pm
+++ b/lib/Net/Jabber/Bot.pm
@@ -1018,7 +1018,7 @@ sub _send_individual_message {
 
     # Strip out anything that's not a printable character except new line, we want to be able to send multiline message, aren't we?
     # Now with unicode support?
-    $message_chunk =~ s/[^[\n|\r|\r\n|:print:]]+/./xmsg;
+    $message_chunk =~ s/[^[\n|\r|\r\n|[:print:]]]+/./xmsg;
 
     my $message_length = length($message_chunk);
     DEBUG("Sending message $yday-$hour-$messages_this_hour $message_length bytes to $recipient");