my $mynick = $irc->nick_name;
my @hello = @{$self->{greetings}};
- my $match = first { $$rmessage =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*$/i } @hello;
+ my $match = first { $$rmessage =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*[.!]?\s*$/i } @hello;
$irc->yield(privmsg => $$rchannels->[0] => $hello[int rand $#hello].", $nick") if $match;
PCI_EAT_NONE
}