Fix to not issue a warning..

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

diff --git a/lib/Onis/Plugins/Words.pm b/lib/Onis/Plugins/Words.pm
index 97109ec..081db85 100644 (file)
--- a/lib/Onis/Plugins/Words.pm
+++ b/lib/Onis/Plugins/Words.pm
@@ -83,7 +83,7 @@ sub calculate
        }
 
        @$WordData = sort { $b->[1] <=> $a->[1] } (@data);
-       splice (@$WordData, $max);
+       splice (@$WordData, $max) if (scalar (@$WordData) > $max);
 }
 
 sub output