X-Git-Url: http://git.ieval.ro/?p=poe-component-irc-plugin-hello.git;a=blobdiff_plain;f=lib%2FPOE%2FComponent%2FIRC%2FPlugin%2FHello.pm;fp=lib%2FPOE%2FComponent%2FIRC%2FPlugin%2FHello.pm;h=9b03e4713061d343b320b863887c80bfe2322e2e;hp=f559fd2e7be9fe000f9dc2b59789ca07d6611423;hb=a3ee1c39ae471ebb490dbca1740164b92479928b;hpb=828747ebb9f361b5a6c735e994a6a15ea539efbf

diff --git a/lib/POE/Component/IRC/Plugin/Hello.pm b/lib/POE/Component/IRC/Plugin/Hello.pm
index f559fd2..9b03e47 100644
--- a/lib/POE/Component/IRC/Plugin/Hello.pm
+++ b/lib/POE/Component/IRC/Plugin/Hello.pm
@@ -24,7 +24,7 @@ sub new {
 			   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',
+			'what\'s up', 'que tal', 'こんにちは', '你好', 'ni hao',
 			'добро јутро', 'γεια σας', 'bom dia', 'hyvää huomenta'],
 		@_
 	};
@@ -47,7 +47,7 @@ sub S_public{
 	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