- remove (last) null element from array in channel modes.

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

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 92238fb9a0725787c3fe1ae6347720327600ef83..8f6d0214ea99a1e124fa6ed3a923dbe2b382f8bb 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -5,7 +5,7 @@
 #        NOTE: Based on code by Kevin Lenzo & Patrick Cole  (c) 1997
 #
 
-if (&IsParam("useStrict")) { use strict; }
+# use strict;  # TODO
 
 # GENERIC. TO COPY.
 sub on_generic {
@@ -470,7 +470,7 @@ sub on_join {
     my $i              = scalar(keys %{ $channels{$chan} });
     my $j              = $cache{maxpeeps}{$chan} || 0;
 
-    if (time() > ($sched{shmFlush}{TIME} || time()) + 3600) {
+    if (!&IsParam("noSHM") && time() > ($sched{shmFlush}{TIME} || time()) + 3600) {
        &DEBUG("looks like schedulers died somewhere... restarting...");
        &setupSchedulers();
     }
@@ -582,9 +582,6 @@ sub on_join {
        }
     }
 
-    ### chanlimit check.
-#    &chanLimitVerify($chan);
-
     ### wingate:
     &wingateCheck();
 }
@@ -618,7 +615,8 @@ sub on_mode {
     my $nick   = $event->nick();
     $chan      = ($event->to)[0];
 
-    $args[0] =~ s/\s$//;
+    # last element is empty... so nuke it.
+    pop @args while ($args[$#args] eq "");
 
     if ($nick eq $chan) {      # UMODE
        &status(">>> mode $b_yellow\[$ob$b@args$b_yellow\]$ob by $b_cyan$nick$ob");