- cleanup _default() a bit

diff --git a/docbot.pl b/docbot.pl
index 33f1e7ab01c19fb4f0296bd21dd92743b3e5b6eb..444af1c0b512e35285c1daa720998751e986845b 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -4135,25 +4135,33 @@ sub on_irc_notice {
 # we registered for all events, this will produce some debug info.
 sub _default {
 
-#foreach my $tmp (@_) {
-#  print "_default: $tmp\n";
-#}
-#exit();
+    #foreach my $tmp (@_) {
+    #    print "_default: $tmp\n";
+    #}
+    #exit();
 
     my ($sender, $event, $args) = @_[SENDER, ARG0 .. $#_];
     my @output = ( "$event: " );
 
-##print "sender:\n" . Dumper($sender) . "\n";
-#print "class: " . $sender . "\n";
-#print "event: " . $event . "\n";
-#exit();
+    ##print "sender:\n" . Dumper($sender) . "\n";
+    #print "class: " . $sender . "\n";
+    #print "event: " . $event . "\n";
+    #exit();
 
-if (substr($event, 0, 1) eq '_') {
-  return;
-}
+    if (substr($event, 0, 1) eq '_') {
+      return;
+    }
 
     my $irc = $sender->get_heap();
+    if (!defined($irc)) {
+        print_msg("No \$irc entry found in _default()", ERROR);
+        death();
+    }
     my $session = find_irc_session($irc);
+    if (!defined($session)) {
+        print_msg("No session found in _default()", ERROR);
+        death();
+    }
 
     set_session_activity($session);