commit c5c28543561eda2d2c5cb8fdd17735338fcb7da3 from: noodle date: Fri Nov 7 09:06:54 2025 UTC set a default empty string value for "reply" variables commit - b8d800b81cd3af0db4ec48a50e26531b81066e23 commit + c5c28543561eda2d2c5cb8fdd17735338fcb7da3 blob - ede8e7f1b35d292ca094edb08325d5dfe67e5946 blob + 0753afded8a37af09fd7b75f5d67724b0fd51130 --- mata_bot.pl +++ mata_bot.pl @@ -46,7 +46,7 @@ sub randint { sub respond_command { my ($ball, $hellos, $sender_nick, $content) = @_; - my $reply; + my $reply = ''; if ($content =~ /\b{wb}([1-9]\d*)?d([1-9]\d*)\b{wb}/) { # we got dice my $ndice = $1 // 1; @@ -130,7 +130,7 @@ sub respond_command { sub respond_mention { my ($quotes, $sender_nick, $message) = @_; - my $reply; + my $reply = ''; if ($sender_nick eq $MOTHER) { $reply = "Yes, mother? ${MATA_HAPPY}"; } elsif ($message =~ /^\b${NICK_RE}\b$/) { @@ -144,7 +144,7 @@ sub respond_mention { # respond to channel sub respond { my ($lists, $subbuffer, $sender_nick, $message) = @_; - my $reply; + my $reply = ''; if ($subbuffer->{$sender_nick} && $message =~ m,\b{wb}s/([^/]+)/([^/]*)(?:/([gi]*))?,) { # chat s/// my $prev_message = $subbuffer->{$sender_nick};