Disable autovivification in Classes.pm and add some undef checks to reduce warnings.

1 files changed, 7 insertions, 4 deletions

diff --git a/lib/ASM/Classes.pm b/lib/ASM/Classes.pm
index 1f0e3ef..2cd9793 100644
--- a/lib/ASM/Classes.pm
+++ b/lib/ASM/Classes.pm
@@ -1,5 +1,5 @@
 package ASM::Classes;
-
+no autovivification;
 use strict;
 use warnings;
 use Text::LevenshteinXS qw(distance);
@@ -48,9 +48,12 @@ sub new
 sub cloning {
   my ($chk, $id, $event, $chan, $rev) = @_;
   my $max = int($chk->{content});
-  my @nicks = grep {($::sn{$_}->{host} eq $event->{host}) && (lc $chan ~~ $::sn{$_}->{mship})} keys %::sn;
-  # It's lines like these that make me love Perl no matter how much it drives dwfreed up a tree.
-  # Understanding how that line works is simple and is left as an exercise to the reader.
+  my @nicks = grep {
+                    (defined($::sn{$_}->{host})) &&
+                    (defined($::sn{$_}->{mship})) &&
+                    ($::sn{$_}->{host} eq $event->{host}) &&
+                    (lc $chan ~~ $::sn{$_}->{mship})
+                   } keys %::sn;
   if ($#nicks >= $max) {
     return ASM::Util->commaAndify(@nicks);
   }