From 072a1bc0076fc87190455e400e0205b9a60e0b5a Mon Sep 17 00:00:00 2001
From: octo <octo>
Date: Tue, 12 Apr 2005 21:48:02 +0000
Subject: [PATCH] - Added minor check for very silent persons in
 lib/Onis/Plugins/Interestingnumbers.pm - Sort order for DBM-Files is now
 DB_File GDBM_File GDBM_File SDBM_File NDBM_File ODBM_File

---
 lib/Onis/Data/Persistent/Dbm.pm        | 5 ++---
 lib/Onis/Plugins/Interestingnumbers.pm | 1 +
 onis                                   | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Onis/Data/Persistent/Dbm.pm b/lib/Onis/Data/Persistent/Dbm.pm
index 397ae8c..d6a0b71 100644
--- a/lib/Onis/Data/Persistent/Dbm.pm
+++ b/lib/Onis/Data/Persistent/Dbm.pm
@@ -5,7 +5,7 @@ use warnings;
 
 BEGIN
 {
-	@AnyDBM_File::ISA = (qw(GDBM_File DB_File GDBM_File SDBM_File NDBM_File ODBM_File));
+	@AnyDBM_File::ISA = (qw(DB_File GDBM_File GDBM_File SDBM_File NDBM_File ODBM_File));
 }
 
 use Carp qw(carp confess);
@@ -171,9 +171,8 @@ sub keys
 	my $val;
 
 	no strict (qw(subs));
-	for (($key, $val) = $db->FIRSTKEY (); ($key, $val) = $db->NEXTKEY ($key);)
+	for (($key, $val) = $db->FIRSTKEY (); defined ($key) and defined ($val); ($key, $val) = $db->NEXTKEY ($key))
 	{
-		die unless (defined ($key));
 		next if (defined ($obj->{'cache'}{$key}));
 
 		$obj->{'cache'}{$key} = [split ($Alarm, $val)];
diff --git a/lib/Onis/Plugins/Interestingnumbers.pm b/lib/Onis/Plugins/Interestingnumbers.pm
index 892dc09..2d221ee 100644
--- a/lib/Onis/Plugins/Interestingnumbers.pm
+++ b/lib/Onis/Plugins/Interestingnumbers.pm
@@ -160,6 +160,7 @@ sub calculate
 		my $main = get_main_nick ($nick);
 
 		next unless ($main);
+		next unless (defined ($soliloquies)); # Person has not written a single line, eg. bots..
 
 		if (!defined ($InterestingNumbersData->{$main}))
 		{
diff --git a/onis b/onis
index 94bcc73..c34fc74 100755
--- a/onis
+++ b/onis
@@ -27,7 +27,7 @@ BEGIN
 	# 0x0400   Data::Core (dump incoming data to stderr)
 	# 0x0800   Data::Core (initializing)
 	# 0x1000   Onis::Users
-	$::DEBUG = 0x0200;
+	$::DEBUG = 0x0000;
 }
 
 use strict;
-- 
2.11.0