have some more pi, treat ^ as **

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

diff --git a/src/Modules/Math.pl b/src/Modules/Math.pl
index 1e23177a79229a0e80587505984d55de08b588f5..f84fc3d5ac474e7df9b184b799be7a560a5bd4c1 100644 (file)
--- a/src/Modules/Math.pl
+++ b/src/Modules/Math.pl
@@ -78,8 +78,9 @@ sub perlMath {
     }
 
     for ($locMsg) {
-       s/\bpi\b/3.1415/g;
+       s/\bpi\b/3.14159265/g;
        s/ to the / ** /g;
+       s/\^/ ** /g;
        s/\btimes\b/\*/g;
        s/\bdiv(ided by)? /\/ /g;
        s/\bover /\/ /g;

diff --git a/src/Modules/nickometer.pl b/src/Modules/nickometer.pl
index 567c8706ff929e40d970d158a957c8d038538d3f..1295ed25f248b9b3d39c47a6d6a48fd8ca5bd556 100644 (file)
--- a/src/Modules/nickometer.pl
+++ b/src/Modules/nickometer.pl
@@ -10,7 +10,7 @@
 
 use strict;
 
-my $pi         = 3.1415;
+my $pi         = 3.14159265;
 my $score      = 0;
 my $verbose    = 0;