projects
/
poe-component-irc-plugin-hello.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow ! or . after a greeting
[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 a5770aa0350d03020f2ef22cc2871cde4ae3be60..f6bc02bfda1d7f9e1e98d305693538c610df2564 100644
(file)
--- a/
lib/POE/Component/IRC/Plugin/Hello.pm
+++ b/
lib/POE/Component/IRC/Plugin/Hello.pm
@@
-34,7
+34,7
@@
sub S_public{
my $mynick = $irc->nick_name;
my @hello = @{$self->{greetings}};
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
}
$irc->yield(privmsg => $$rchannels->[0] => $hello[int rand $#hello].", $nick") if $match;
PCI_EAT_NONE
}
This page took
0.009278 seconds
and
4
git commands to generate.