- moved scripts/setup_sql.pl to src/db_mysql as &createTables()

[infobot.git] / src / Modules / Math.pl

diff --git a/src/Modules/Math.pl b/src/Modules/Math.pl
index d8d4898377c6abe26d1daa0e9af9b70189c0ce8b..bf1b41a3c53a52dddf19525e1cb4515b36217a26 100644 (file)
--- a/src/Modules/Math.pl
+++ b/src/Modules/Math.pl
@@ -110,21 +110,22 @@ sub perlMath {
            $locMsg = sprintf("%1.12f", $locMsg);
            $locMsg =~ s/\.?0+$//;
 
-           if (length($locMsg) > 30) {
+           if (length $locMsg > 30) {
                $locMsg = "a number with quite a few digits...";
            }
        } else {
            if (defined $locMsg) {
                &DEBUG("math: locMsg => '$locMsg'... FIXME");
            } else {
-               $locMsg = "undefined";
+               &status("math: could not really compute.");
+               $locMsg = "";
            }
        }
     } else {
        $locMsg = "";
     }
 
-    if ($locMsg ne $message) {
+    if (defined $logMsg and $locMsg ne $message) {
        return $locMsg;
     } else {
        return '';