query_blocker.pl : Use of uninitialized value $message in concatenation

[crazycatdevs]

Script / WeeChat

• Name of script: query_blocker
• Script version: 1.3
• WeeChat version: 3.4

This bug has been reported to the script author? No
Response or reason: 
Last modifier is FlashCode

Bug summary

When your nick has a pipe (|), the evaluation of message seems to failed:
weechat perl : attention : Use of uninitialized value $message in concatenation (.) or string at /home/crazycat/.weechat/perl/query_blocker.pl line 344.

Steps to reproduce

1. Enable query_blocker
2. Change your nick to a nick with a | inside (like CrazyCat|Test)
3. Wait for a query

Current behavior

Expected behavior

Suggested solutions

Additional information

Another test I did: using nick CrazyCat[Test], the scripts doesn't seems to work, I got a query from a non allowed user without any error or query_blocker info

[weechatter]

Ok. the bug is in this regex:
if ( $arg =~ m/:(.+?)!.+? PRIVMSG $my_nick :(.*)/i ) {