From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 11 Aug 2000 13:10:01 +0000 (+0000)
Subject: closed 17344 -- Maths.pl is borked in a way
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=14b27bd7f719f6aef0e9206ab701d3ab5a5b63f0;p=infobot.git

closed 17344 -- Maths.pl is borked in a way


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

diff --git a/blootbot/src/Modules/Math.pl b/blootbot/src/Modules/Math.pl
index b7ba156..d8d4898 100644
--- a/blootbot/src/Modules/Math.pl
+++ b/blootbot/src/Modules/Math.pl
@@ -101,8 +101,9 @@ sub perlMath {
     if (($locMsg =~ /^\s*[-\d*+\s()\/^\.\|\&\*\!]+\s*$/)
 	&& ($locMsg !~ /^\s*\(?\d+\.?\d*\)?\s*$/)
 	&& ($locMsg !~ /^\s*$/)
-	&& ($locMsg !~ /^\s*[( )]+\s*$/))
-    {
+	&& ($locMsg !~ /^\s*[( )]+\s*$/)
+	&& ($locMsg =~ /\d+/)
+    ) {
 	$locMsg = eval($locMsg);
 
 	if (defined $locMsg and $locMsg =~ /^[-+\de\.]+$/) {