bugfix in translators

dnorman · Aug 25, 2012 · a59b15f · a59b15f
1 parent 868dfe1
commit a59b15f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/DBR/Config/Trans/Dollars.pm b/lib/DBR/Config/Trans/Dollars.pm
@@ -52,9 +52,9 @@ use overload
       new ($_[2] ? $b - $a : $a - $b);
 },
 
-'*'  => sub { new($_[0]->cents * $_[1]) },
+'*'  => sub { new($_[0]->cents * sprintf("%f",$_[1]) ) },
 '/'  => sub {
-      my ($a,$b) = ($_[0]->cents, $_[1] );
+      my ($a,$b) = ($_[0]->cents, sprintf("%f",$_[1]) );
       new ($_[2] ? $b / $a : $a / $b);
 },
 

diff --git a/lib/DBR/Config/Trans/Percent.pm b/lib/DBR/Config/Trans/Percent.pm
@@ -51,9 +51,9 @@ use overload
 'eq' => sub { $_[0]->value == (0 + $_[1]) },
 'ne' => sub { $_[0]->value != (0 + $_[1]) },
 
-'*'  => sub { new($_[0]->value * $_[1]) },
+'*'  => sub { new($_[0]->value * sprintf("%f",$_[1]) ) },
 '/'  => sub {
-      my ($a,$b) = ($_[0]->value, $_[1] );
+      my ($a,$b) = ($_[0]->value, sprintf("%f",$_[1]) );
       new ($_[2] ? $b / $a : $a / $b);
 },