Bump version and update Changes

[poe-component-irc-plugin-hello.git] / lib / POE / Component / IRC / Plugin / Hello.pm

diff --git a/lib/POE/Component/IRC/Plugin/Hello.pm b/lib/POE/Component/IRC/Plugin/Hello.pm
index f559fd2e7be9fe000f9dc2b59789ca07d6611423..6ca61cdf02ab6069b8d8be20bfb5bef0c7a690f7 100644 (file)
--- a/lib/POE/Component/IRC/Plugin/Hello.pm
+++ b/lib/POE/Component/IRC/Plugin/Hello.pm
@@ -7,7 +7,7 @@ use utf8;
 use Encode qw/encode decode/;
 use Unicode::Normalize qw/NFC/;
 
 use Encode qw/encode decode/;
 use Unicode::Normalize qw/NFC/;
 

-our $VERSION = '0.001002';
+our $VERSION = '0.001004';

 
 use List::Util qw/first/;
 
 
 use List::Util qw/first/;
 


@@ -23,8 +23,8 @@ sub new {
                           tungjatjeta parev salam namaskaar mingalarba ahoy
                           saluton allo moin aloha namaste shalom ciào ciao servus
                           salve ave merhaba witaj hei hola selam sawubona
                           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'],
                @_
        };
                        'добро јутро', 'γεια σας', 'bom dia', 'hyvää huomenta'],
                @_
        };


@@ -47,7 +47,7 @@ sub S_public{
        my $message = NFC decode 'UTF-8', $$rmessage;
        my @hello = @{$self->{greetings}};
 
        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
        my $randhello = encode 'UTF-8', $hello[int rand $#hello];
        $irc->yield(privmsg => $$rchannels->[0] => "$randhello, $nick") if $match;
        PCI_EAT_NONE


@@ -85,7 +85,7 @@ Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
 
 =head1 COPYRIGHT AND LICENSE
 

-Copyright (C) 2013 by Marius Gavrilescu
+Copyright (C) 2013-2017 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,
 
 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,