Fixes this bug:

[onis.git] / lib / Onis / Plugins / Words.pm

diff --git a/lib/Onis/Plugins/Words.pm b/lib/Onis/Plugins/Words.pm
index 65c1f7b..081db85 100644 (file)
--- a/lib/Onis/Plugins/Words.pm
+++ b/lib/Onis/Plugins/Words.pm
@@ -6,9 +6,8 @@ use warnings;
 use Onis::Config (qw(get_config));
 use Onis::Html (qw(get_filehandle));
 use Onis::Language (qw(translate));
-use Onis::Data::Core (qw(register_plugin get_main_nick));
+use Onis::Data::Core (qw(register_plugin get_main_nick nick_to_ident nick_to_name));
 use Onis::Data::Persistent ();
-use Onis::Users (qw(nick_to_name));
 
 register_plugin ('TEXT', \&add);
 register_plugin ('ACTION', \&add);
@@ -84,7 +83,7 @@ sub calculate
        }
 
        @$WordData = sort { $b->[1] <=> $a->[1] } (@data);
-       splice (@$WordData, $max);
+       splice (@$WordData, $max) if (scalar (@$WordData) > $max);
 }
 
 sub output