use warnings;
use utf8;
use Encode qw/encode decode/;
+use Unicode::Normalize qw/NFC/;
our $VERSION = '0.001002';
my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
my $nick = parse_user $$rfullname;
my $mynick = $irc->nick_name;
- my $message = decode 'UTF-8', $$rmessage;
+ my $message = NFC decode 'UTF-8', $$rmessage;
my @hello = @{$self->{greetings}};
my $match = first { $message =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*[.!]?\s*$/i } @hello;