From: 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;