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

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

diff --git a/src/Modules/Math.pl b/src/Modules/Math.pl
index b7ba1568712a27c119f13344fe66d383aeed0a19..d8d4898377c6abe26d1daa0e9af9b70189c0ce8b 100644 (file)
--- a/src/Modules/Math.pl
+++ b/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\.]+$/) {