eleksir/aleesa-jabber-bot
1
Fork 0
Code Activity

Newer perl wants more brackets :(

Browse Source
This commit is contained in:
eleksir
2020-11-14 21:07:32 +03:00
parent 80f93e2bf6
commit 2cd4d5d37d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Net/Jabber/Bot.pm
View File

@@ -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? # 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? # 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); my $message_length = length($message_chunk);
DEBUG("Sending message $yday-$hour-$messages_this_hour $message_length bytes to $recipient"); DEBUG("Sending message $yday-$hour-$messages_this_hour $message_length bytes to $recipient");