fix unsetting autojoin when trying to join invite-only channel

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1932 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 78bd14f4d4bc3cf02db607a3bf2a533a578e5efd..bcb6fcabe9146d4da5f50e0cae074ebc49b667fd 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -1339,8 +1339,9 @@ sub on_inviteonly {
     $conn = shift(@_);
     my ($event) = @_;
     my @args = $event->args;
+    my $chan = $args[1];
 
-    &status(">>> inviteonly/$b_cyan$args[1]$ob, removing autojoin");
+    &status(">>> inviteonly/$b_cyan$chan$ob, removing autojoin");
     delete $chanconf{$chan}{autojoin};
     &joinNextChan();
 }