From: octo <octo>
Date: Tue, 12 Apr 2005 21:48:02 +0000 (+0000)
Subject: - Added minor check for very silent persons in lib/Onis/Plugins/Interestingnumbers.pm
X-Git-Tag: Release-0.8.0~20^2~10
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=072a1bc0076fc87190455e400e0205b9a60e0b5a;p=onis.git

- 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
---

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;