From fc81a53c673f7c073c1ce0ea68f0df8e8057ff9c Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Tue, 17 Jan 2017 14:53:31 -0500
Subject: drhtz(), drhfz(): Replace regex dots with more strict expressions

---
(limited to 'lib')

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; }
--
cgit v0.9.1