summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorP. J. McDermott <pj@pehjota.net>2017-01-17 14:53:31 (EST)
committer P. J. McDermott <pj@pehjota.net>2017-01-17 14:53:31 (EST)
commitfc81a53c673f7c073c1ce0ea68f0df8e8057ff9c (patch)
tree5980daae1ba7616cc4914c8cc4e55f1eef7ad3c3
parent1414956f6039dd59f48aa447bf78606f0ef02eae (diff)
downloadMath-Decimal-FastPP-fc81a53c673f7c073c1ce0ea68f0df8e8057ff9c.zip
Math-Decimal-FastPP-fc81a53c673f7c073c1ce0ea68f0df8e8057ff9c.tar.gz
Math-Decimal-FastPP-fc81a53c673f7c073c1ce0ea68f0df8e8057ff9c.tar.bz2
drhtz(), drhfz(): Replace regex dots with more strict expressions
-rw-r--r--lib/Math/Decimal/FastPP.pm4
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; }