use 5.014000;
use strict;
use warnings;
-our $VERSION = '0.001001';
+our $VERSION = '0.001002';
use List::Util qw/first/;
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
}