diff options
| -rw-r--r-- | lib/Math/Decimal/FastPP.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Math/Decimal/FastPP.pm b/lib/Math/Decimal/FastPP.pm index 7de353b..badca0f 100644 --- a/lib/Math/Decimal/FastPP.pm +++ b/lib/Math/Decimal/FastPP.pm @@ -94,8 +94,8 @@ Adds C<$a> and C<$b> and returns their sum. sub dadd { - my ($ai, $af) = split("\\.", $_[0]); - my ($bi, $bf) = split("\\.", $_[1]); + my ($ai, $af) = split(/\./, $_[0]); + my ($bi, $bf) = split(/\./, $_[1]); $af ||= ""; $bf ||= ""; my $ae = length($af); @@ -131,8 +131,8 @@ Multiplies C<$a> and C<$b> and returns their product. sub dmul { - my ($ai, $af) = split("\\.", $_[0]); - my ($bi, $bf) = split("\\.", $_[1]); + my ($ai, $af) = split(/\./, $_[0]); + my ($bi, $bf) = split(/\./, $_[1]); $af ||= ""; $bf ||= ""; my $as = $ai . $af; |