From 3f75fd1d9273dd744e3d0ec98968401db7e3ae1a Mon Sep 17 00:00:00 2001 From: William Heimbigner Date: Tue, 12 Jan 2016 15:05:56 -0700 Subject: Disable Autovivification in all the things, enable autoflush on STDOUT, fix some things in accountsToNicks --- lib/ASM/Commander.pm | 1 + lib/ASM/DB.pm | 1 + lib/ASM/Event.pm | 1 + lib/ASM/Fifo.pm | 1 + lib/ASM/Inspect.pm | 1 + lib/ASM/Log.pm | 1 + lib/ASM/Services.pm | 1 + lib/ASM/Util.pm | 3 ++- lib/ASM/XML.pm | 1 + lib/Net/IRC.pm | 2 +- 10 files changed, 11 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/ASM/Commander.pm b/lib/ASM/Commander.pm index c1f93ef..c85e46b 100644 --- a/lib/ASM/Commander.pm +++ b/lib/ASM/Commander.pm @@ -1,4 +1,5 @@ package ASM::Commander; +no autovivification; use warnings; use strict; diff --git a/lib/ASM/DB.pm b/lib/ASM/DB.pm index df7c896..212cc92 100644 --- a/lib/ASM/DB.pm +++ b/lib/ASM/DB.pm @@ -1,4 +1,5 @@ package ASM::DB; +no autovivification; use warnings; use strict; diff --git a/lib/ASM/Event.pm b/lib/ASM/Event.pm index f057582..525bd9d 100644 --- a/lib/ASM/Event.pm +++ b/lib/ASM/Event.pm @@ -1,4 +1,5 @@ package ASM::Event; +no autovivification; use warnings; use strict; diff --git a/lib/ASM/Fifo.pm b/lib/ASM/Fifo.pm index 81170c5..cb4f2cb 100644 --- a/lib/ASM/Fifo.pm +++ b/lib/ASM/Fifo.pm @@ -1,4 +1,5 @@ package ASM::Fifo; +no autovivification; use warnings; use strict; diff --git a/lib/ASM/Inspect.pm b/lib/ASM/Inspect.pm index bb885d2..7f4aa7f 100644 --- a/lib/ASM/Inspect.pm +++ b/lib/ASM/Inspect.pm @@ -1,4 +1,5 @@ package ASM::Inspect; +no autovivification; use warnings; use strict; diff --git a/lib/ASM/Log.pm b/lib/ASM/Log.pm index b12f58d..656c88a 100644 --- a/lib/ASM/Log.pm +++ b/lib/ASM/Log.pm @@ -1,4 +1,5 @@ package ASM::Log; +no autovivification; use warnings; use strict; diff --git a/lib/ASM/Services.pm b/lib/ASM/Services.pm index 7cbf1ff..7be0c82 100644 --- a/lib/ASM/Services.pm +++ b/lib/ASM/Services.pm @@ -1,4 +1,5 @@ package ASM::Services; +no autovivification; use warnings; use strict; diff --git a/lib/ASM/Util.pm b/lib/ASM/Util.pm index 325762b..c23fbf6 100644 --- a/lib/ASM/Util.pm +++ b/lib/ASM/Util.pm @@ -1,4 +1,5 @@ package ASM::Util; +no autovivification; use Array::Utils qw(:all); use POSIX qw(strftime); use warnings; @@ -301,7 +302,7 @@ sub notRestricted { sub accountToNicks { my ($module, $account) = @_; $account =~ s/^\$a://; - my @ret = grep( { (lc ($account) eq lc ($::sn{$_}->{account})) } keys %::sn ); + my @ret = grep( { (lc ($account) eq lc ($::sn{$_}->{account} // '')) } keys %::sn ); return \@ret; } diff --git a/lib/ASM/XML.pm b/lib/ASM/XML.pm index 1128dda..092e570 100644 --- a/lib/ASM/XML.pm +++ b/lib/ASM/XML.pm @@ -1,4 +1,5 @@ package ASM::XML; +no autovivification; use warnings; use strict; diff --git a/lib/Net/IRC.pm b/lib/Net/IRC.pm index cb41dca..d46ae9e 100644 --- a/lib/Net/IRC.pm +++ b/lib/Net/IRC.pm @@ -754,4 +754,4 @@ http://www.irchelp.org/, home of fine IRC resources. =back -=cut \ No newline at end of file +=cut -- cgit v1.2.3