one word of alpha

[infobot.git] / blootbot / src / Modules / spell.pl

diff --git a/blootbot/src/Modules/spell.pl b/blootbot/src/Modules/spell.pl
index dda751f1305fa5e9a2d02d1173ac8f508f33633c..f6ff8896de92130e245bd356de9d33e8f9674825 100644 (file)
--- a/blootbot/src/Modules/spell.pl
+++ b/blootbot/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',