From 645cc36c05909b0ffd0ec9423e3633c8a1b8673b Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 7 Jan 2016 19:55:36 -0700
Subject: Use Tie::CPHash to make %::sn and %::sc case-insensitiveish. Clean up
 commands.xml and fix some bugs Add clone detection Minimize some excessive
 warnings Greatly improve syncing speed

---
 meta.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'meta.pl')

diff --git a/meta.pl b/meta.pl
index 8ee498d..76af728 100755
--- a/meta.pl
+++ b/meta.pl
@@ -2,7 +2,6 @@
 
 use strict;
 use warnings;
-no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
 use FindBin;
 use lib "$FindBin::Bin/lib";;
@@ -17,6 +16,7 @@ use File::Monitor;
 use feature qw(say);
 use HTTP::Async;
 use Carp;
+use Tie::CPHash;
 
 use ASM::Util;
 use ASM::XML;
@@ -28,6 +28,7 @@ use ASM::Commander;
 use ASM::Classes;
 use ASM::DB;
 use ASM::Fifo;
+no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
 $Data::Dumper::Useqq=1;
 
@@ -68,8 +69,10 @@ $::settingschanged = 0;
 %::spy = ();
 $::starttime = time;
 @::syncqueue = ();
+$::pendingsync = 0;
 %::watchRegged = ();
 $::lastline = "";
+%::sn = (); %::sc = (); tie %::sc, 'Tie::CPHash'; tie %::sn, 'Tie::CPHash';
 
 $SIG{__WARN__} = sub {
   $Data::Dumper::Useqq=1;
@@ -113,6 +116,7 @@ sub init {
                          Nick => $::settings->{nick},
                          Ircname => $::settings->{realname},
                          Username => $::settings->{username},
+                         Password => $::settings->{pass},
 			 Pacing => 0 );
   $conn->debug($::debug);
   $::inspector = ASM::Inspect->new();
-- 
cgit v1.2.3