- 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 (file)
--- 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 (file)
--- 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 (executable)
--- 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;