diff options
| author | David Phillips <david@sighup.nz> | 2018-09-16 20:37:52 +1200 |
|---|---|---|
| committer | David Phillips <david@sighup.nz> | 2018-09-16 20:37:52 +1200 |
| commit | 0352e7d89441abc913d69ce6cff551872edc1fe9 (patch) | |
| tree | efef1921c6660b58cef6e595bab93010a5245b15 /Plugin/Jinx.pm | |
| parent | 5f684115bdef65f387e83ad2dfb70fe6d17ed17e (diff) | |
| download | idalius-0352e7d89441abc913d69ce6cff551872edc1fe9.tar.xz | |
Jinx: Don't be sensitive to case
Diffstat (limited to 'Plugin/Jinx.pm')
| -rw-r--r-- | Plugin/Jinx.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Plugin/Jinx.pm b/Plugin/Jinx.pm index 6241a64..a514bb8 100644 --- a/Plugin/Jinx.pm +++ b/Plugin/Jinx.pm @@ -25,9 +25,9 @@ sub on_message { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; my $channel = $where->[0]; - return if $last_response{$channel} and $what eq $last_response{$channel}; + return if $last_response{$channel} and lc $what eq lc $last_response{$channel}; - if ($last{$channel} and $last{$channel} eq $what) { + if ($last{$channel} and lc $last{$channel} eq lc $what) { $last_response{$channel} = $what; return $what; } @@ -41,9 +41,9 @@ sub on_action { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; my $channel = $where->[0]; - return if $last_response{$channel} and $what eq $last_response{$channel}; + return if $last_response{$channel} and lc $what eq lc $last_response{$channel}; - if ($last{$channel} and $last{$channel} eq $what) { + if ($last{$channel} and lc $last{$channel} eq lc $what) { $last_response{$channel} = $what; $irc->yield(ctcp => $channel => "ACTION" => $what); return; @@ -59,7 +59,7 @@ sub on_message_yes_really_even_from_ignored_nicks { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; my $channel = $where->[0]; - return if $last{$channel} and $last{$channel} eq $what; + return if $last{$channel} and lc $last{$channel} eq lc $what; $last{$channel} = undef; |