X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FMath.pl;h=32350ff145eb60216c50a7c6a4c8703b9abb5b26;hb=3936a3e1255582305fc4200485b71fa692e66bd3;hp=b91f8fe64ff7d1f5bc8623b271cf5cfd8183dc2b;hpb=8b54ff5060a6605e169acc0694cb00b89ed22cab;p=infobot.git

diff --git a/src/Modules/Math.pl b/src/Modules/Math.pl
index b91f8fe..32350ff 100644
--- a/src/Modules/Math.pl
+++ b/src/Modules/Math.pl
@@ -7,26 +7,26 @@ use strict;
 use vars qw($message);
 
 my %digits = (
-	"first",   "1",
-	"second",  "2",
-	"third",   "3",
-	"fourth",  "4",
-	"fifth",   "5",
-	"sixth",   "6",
-	"seventh", "7",
-	"eighth",  "8",
-	"ninth",   "9",
-	"tenth",   "10",
-	"one",     "1",
-	"two",     "2",
-	"three",   "3",
-	"four",    "4",
-	"five",    "5",
-	"six",     "6",
-	"seven",   "7",
-	"eight",   "8",
-	"nine",    "9",
-	"ten",     "10"
+	'first',   '1',
+	'second',  '2',
+	'third',   '3',
+	'fourth',  '4',
+	'fifth',   '5',
+	'sixth',   '6',
+	'seventh', '7',
+	'eighth',  '8',
+	'ninth',   '9',
+	'tenth',   '10',
+	'one',     '1',
+	'two',     '2',
+	'three',   '3',
+	'four',    '4',
+	'five',    '5',
+	'six',     '6',
+	'seven',   '7',
+	'eight',   '8',
+	'nine',    '9',
+	'ten',     '10'
 );
 
 sub perlMath {
@@ -60,13 +60,13 @@ sub perlMath {
 
     while ($locMsg =~ /(log\s*((\d+\.?\d*)|\d*\.?\d+))\s*/) {
 	my ($exp, $res) = ($1, $2);
-	my $val = ($res) ? log($res) : "Infinity";
+	my $val = ($res) ? log($res) : 'Infinity';
 	$locMsg =~ s/$exp/+$val/g;
     }
 
     while ($locMsg =~ /(bin2dec ([01]+))/) {
 	my $exp = $1;
-	my $val = join ("", unpack("B*",$2)) ;
+	my $val = join ('', unpack('B*',$2)) ;
 	$locMsg =~ s/$exp/+$val/g;
     }
 
@@ -121,11 +121,11 @@ sub perlMath {
 		&FIXME("math: locMsg => '$locMsg'...");
 	    } else {
 		&status("math: could not really compute.");
-		$locMsg = "";
+		$locMsg = '';
 	    }
 	}
     } else {
-	$locMsg = "";
+	$locMsg = '';
     }
 
     if (defined $locMsg and $locMsg ne $message) {