From c8ebbb9159f95f22c70a66d5b1131dd2b2ff9b4b Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Sat, 28 Jan 2017 15:36:44 -0500
Subject: dfmt(): Don't interpolate literal strings

---
diff --git a/lib/Math/Decimal/FastPP.pm b/lib/Math/Decimal/FastPP.pm
index 0f9960d..8db00a9 100644
--- a/lib/Math/Decimal/FastPP.pm
+++ b/lib/Math/Decimal/FastPP.pm
@@ -93,9 +93,9 @@ sub dfmt
 
 	($s, $i, $f) = $a =~ m/^(-?)(\d*).?(\d*)$/;
 	$l = length($f);
-	if ($i eq "") { $i = "0"; }
-	if ($l < $p) { $f .= "0" x ($p - $l); }
-	return $s . $i . "." . $f;
+	if ($i eq '') { $i = '0'; }
+	if ($l < $p) { $f .= '0' x ($p - $l); }
+	return $s . $i . '.' . $f;
 }
 
 1;
--
cgit v0.9.1