From dc7128145b3301c83cd890069a7fc5de9f484bd2 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Tue, 17 Jan 2017 14:30:10 -0500
Subject: dadd(), dmul(): Don't use stringy split()

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