use warnings;
use utf8;
use Encode qw/encode decode/;
+use Unicode::Normalize qw/NFC/;
-our $VERSION = '0.001002';
+our $VERSION = '0.001003';
use List::Util qw/first/;
tungjatjeta parev salam namaskaar mingalarba ahoy
saluton allo moin aloha namaste shalom ciào ciao servus
salve ave merhaba witaj hei hola selam sawubona
- geodemorgen hoi καλημέρα/,
- "what's up", 'que tal', 'こんにちは', '你好', 'ni hao',
+ goedemorgen mogge hoi καλημέρα/,
+ 'what\'s up', 'que tal', 'こんにちは', '你好', 'ni hao',
'добро јутро', 'γεια σας', 'bom dia', 'hyvää huomenta'],
@_
};
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;
+ my $match = first { $message =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*[.!]?\s*$/is } @hello;
my $randhello = encode 'UTF-8', $hello[int rand $#hello];
$irc->yield(privmsg => $$rchannels->[0] => "$randhello, $nick") if $match;
PCI_EAT_NONE
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2013 by Marius Gavrilescu
+Copyright (C) 2013-2015 by Marius Gavrilescu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.14.2 or,