one word of alpha

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1244 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/spell.pl b/src/Modules/spell.pl
index dda751f1305fa5e9a2d02d1173ac8f508f33633c..f6ff8896de92130e245bd356de9d33e8f9674825 100644 (file)
--- a/src/Modules/spell.pl
+++ b/src/Modules/spell.pl
@@ -14,6 +14,10 @@ use strict;
 
 sub spell::spell {
        my $query = shift;
+       if ($query =~ m/[^[:alpha:]]/) {
+               return("only one word of alphabetic characters supported");
+       }
+
        my $binary;
        my @binaries = (
                '/usr/bin/aspell',