This is an automated email from the git hooks/post-receive script.

ppm-guest pushed a commit to annotated tag v0.17
in repository libmath-prime-util-perl.

commit e48f2f92fdb52cabd445aef3050c0bd8b4d1cb63
Author: Dana Jacobsen <d...@acm.org>
Date:   Wed Dec 12 08:46:17 2012 -0800

    Perl 5.8.2 gets 12345**4 wrong, change to 12345*12345*12345*12345
---
 t/19-moebius.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/19-moebius.t b/t/19-moebius.t
index 41a8564..56b0eb0 100644
--- a/t/19-moebius.t
+++ b/t/19-moebius.t
@@ -125,8 +125,9 @@ while (my($k, $tref) = each (%jordan_totients)) {
 if ($use64) {
   is( jordan_totient(4, 12345), 22902026746060800, "J_4(12345)" );
   # Apostal page 48, 17a.
-  is( divisor_sum( 12345, sub { jordan_totient(4,shift) } ),
-      int(12345 ** 4),
+  is( divisor_sum( 12345, sub { jordan_totient(4,$_[0]) } ),
+      # was int(12345 ** 4), but Perl 5.8.2 gets it wrong.
+      int(12345*12345*12345*12345),
       "n=12345, k=4  :   n**k = divisor_sum(n, jordan_totient(k, d))" );
 }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to