summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorP. J. McDermott <pj@pehjota.net>2017-01-17 17:39:49 (EST)
committer P. J. McDermott <pj@pehjota.net>2017-01-17 17:39:49 (EST)
commitec56268dfbba5f483d63abeddcec2687e35c1708 (patch)
tree9b036d6152996cb13dab9cf2db8489b78ec8b0c1
parentad761d92d41fe464163d87a77ec891d71686e281 (diff)
downloadMath-Decimal-FastPP-ec56268dfbba5f483d63abeddcec2687e35c1708.zip
Math-Decimal-FastPP-ec56268dfbba5f483d63abeddcec2687e35c1708.tar.gz
Math-Decimal-FastPP-ec56268dfbba5f483d63abeddcec2687e35c1708.tar.bz2
dadd(), dmul(), drhtz(), drhfz(): Break after "return"
perltidy insists on doing this, and I can't figure out any way to stop it. But it's not really bad style, so I'll just do what perltidy wants here.
-rw-r--r--lib/Math/Decimal/FastPP.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/Math/Decimal/FastPP.pm b/lib/Math/Decimal/FastPP.pm
index c1a04df..538fb92 100644
--- a/lib/Math/Decimal/FastPP.pm
+++ b/lib/Math/Decimal/FastPP.pm
@@ -30,7 +30,8 @@ sub dadd
my $bs = $bi . $bf;
my $cs = $as + $bs;
$cs = sprintf("%0${ce}i", $cs);
- return substr($cs, 0, length($cs) - $ce) . '.' .
+ return
+ substr($cs, 0, length($cs) - $ce) . '.' .
substr($cs, length($cs) - $ce);
}
@@ -47,7 +48,8 @@ sub dmul
my $cs = $as * $bs;
my $ce = $ae + $be;
$cs = sprintf("%0${ce}i", $cs);
- return substr($cs, 0, length($cs) - $ce) . '.' .
+ return
+ substr($cs, 0, length($cs) - $ce) . '.' .
substr($cs, length($cs) - $ce);
}
@@ -61,7 +63,8 @@ sub drhtz
if ($ad > '5' . '0' x (length($ad) - 1)) { --$as; }
}
$as = sprintf("%0$_[1]i", $as);
- return substr($as, 0, length($as) - $_[1]) . '.' .
+ return
+ substr($as, 0, length($as) - $_[1]) . '.' .
substr($as, length($as) - $_[1]);
}
@@ -75,7 +78,8 @@ sub drhfz
if ($ad >= '5' . '0' x (length($ad) - 1)) { --$as; }
}
$as = sprintf("%0$_[1]i", $as);
- return substr($as, 0, length($as) - $_[1]) . '.' .
+ return
+ substr($as, 0, length($as) - $_[1]) . '.' .
substr($as, length($as) - $_[1]);
}