From 77ac451eacee0e5757c5ef74591fca38984a0b07 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <janik@kleinhoff.de>
Date: Mon, 6 Apr 2015 04:20:50 +0400
Subject: %::synced: always lowercase channel names

---
 modules/event.pl   | 2 +-
 modules/inspect.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/event.pl b/modules/event.pl
index b1876cd..79441f5 100644
--- a/modules/event.pl
+++ b/modules/event.pl
@@ -815,7 +815,7 @@ sub on_whoxover
 {
   my ($conn, $event) = @_;
   my $chan = pop @::syncqueue;
-  $::synced{$event->{args}->[1]} = 1;
+  $::synced{lc $event->{args}->[1]} = 1;
   if (defined($chan) ){
     $conn->sl('who ' . $chan . ' %tcnuhra,314');
     $conn->sl('mode ' . $chan);
diff --git a/modules/inspect.pl b/modules/inspect.pl
index 57fc722..10ff01d 100644
--- a/modules/inspect.pl
+++ b/modules/inspect.pl
@@ -43,7 +43,7 @@ sub inspect {
   foreach $chan ( @{$event->{to}} ) {
     # don't do anything for channels we haven't synced yet
     # because we can't yet respect stuff like notrigger for these
-    next unless $::synced{$chan};
+    next unless $::synced{lc $chan};
     next unless $chan =~ /^#/;
     next if ((defined($::channels->{channel}->{$chan}->{monitor})) and ($::channels->{channel}->{$chan}->{monitor} eq "no"));
     foreach $id (keys %aonx) {
-- 
cgit v1.2.3