Disable Autovivification in all the things, enable autoflush on STDOUT, fix some things in accountsToNicks

11 files changed, 13 insertions, 3 deletions

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
diff --git a/meta.pl b/meta.pl
index 76af728..99c02a1 100755
--- a/meta.pl
+++ b/meta.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-
+no autovivification;
 use strict;
 use warnings;
 
@@ -30,6 +30,7 @@ use ASM::DB;
 use ASM::Fifo;
 no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
+$|++;
 $Data::Dumper::Useqq=1;
 
 $::pass = '';