From 00a9e4d308cb289ef672ad08ce7a55044e9a68c4 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 3 Jan 2006 09:29:56 +0000
Subject: [PATCH] one word of alpha

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1244 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/spell.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Modules/spell.pl b/src/Modules/spell.pl
index dda751f..f6ff889 100644
--- 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',
-- 
2.39.5