diff options
| -rw-r--r-- | lib/Math/Decimal/FastPP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Math/Decimal/FastPP.pm b/lib/Math/Decimal/FastPP.pm index 0dca737..21ab2d2 100644 --- a/lib/Math/Decimal/FastPP.pm +++ b/lib/Math/Decimal/FastPP.pm @@ -162,7 +162,7 @@ of significant digits right of the radix point. sub drhtz { - my ($ai, $af, $ad) = $_[0] =~ m/^(.*)\.(.{$_[1]})(.*)$/ or return; + my ($ai, $af, $ad) = $_[0] =~ m/^(-?\d*)\.(\d{$_[1]})(\d*)$/ or return; my $as = $ai . $af; if ($as >= 0) { if ($ad > "5" . "0" x (length($ad) - 1)) { ++$as; } @@ -193,7 +193,7 @@ of significant digits right of the radix point. sub drhfz { - my ($ai, $af, $ad) = $_[0] =~ m/^(.*)\.(.{$_[1]})(.*)$/ or return; + my ($ai, $af, $ad) = $_[0] =~ m/^(-?\d*)\.(\d{$_[1]})(\d*)$/ or return; my $as = $ai . $af; if ($as >= 0) { if ($ad >= "5" . "0" x (length($ad) - 1)) { ++$as; } |