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

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

commit 53ae236b8d93664f59a05c9b964f95ca5d89693a
Author: Dana Jacobsen <d...@acm.org>
Date:   Sun Dec 15 20:32:19 2013 -0800

    Remove trailing white space
---
 factor.c                            | 2 +-
 lib/Math/Prime/Util/ZetaBigFloat.pm | 4 ++--
 xt/factor-holf.pl                   | 2 +-
 xt/primality-proofs.pl              | 2 +-
 xt/primes-edgecases.pl              | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/factor.c b/factor.c
index 3ca3579..a425a38 100644
--- a/factor.c
+++ b/factor.c
@@ -784,7 +784,7 @@ int squfof_factor(UV n, UV *factors, UV rounds)
 
   qlast = r;
   p = p + r*((s - p)/r);
-  q = (n - (p*p)) / qlast;                     /* q = (n - p*p)/qlast (div is 
exact)*/
+  q = (n - (p*p)) / qlast;               /* q = (n - p*p)/qlast (div is 
exact)*/
   for (iter=0; iter<rounds2; iter++) {   /* unrolled second main loop */
     iq = (s + p)/q;
     pnext = iq*q - p;
diff --git a/lib/Math/Prime/Util/ZetaBigFloat.pm 
b/lib/Math/Prime/Util/ZetaBigFloat.pm
index d83b694..fbadc24 100644
--- a/lib/Math/Prime/Util/ZetaBigFloat.pm
+++ b/lib/Math/Prime/Util/ZetaBigFloat.pm
@@ -273,8 +273,8 @@ sub _Recompute_Dk {
     my $gcd;
     foreach my $i (0 .. $k) {
       # ad + cb  /  bd
-      $sum_n->bmul($d)->badd( $sum_d->copy->bmul($n) );   
-      $sum_d->bmul($d);                                   
+      $sum_n->bmul($d)->badd( $sum_d->copy->bmul($n) );
+      $sum_d->bmul($d);
       $gcd = Math::BigInt::bgcd($sum_n, $sum_d);
       do { $sum_n /= $gcd;  $sum_d /= $gcd; } unless $gcd->is_one;
       my $dmul = (2*$i+1) * (2*$i+2);
diff --git a/xt/factor-holf.pl b/xt/factor-holf.pl
index b1b0f32..219f590 100755
--- a/xt/factor-holf.pl
+++ b/xt/factor-holf.pl
@@ -14,7 +14,7 @@ for (2 .. 100000000) {
 
   my @p_holf;
   push @fs, $_;
-  while (@fs) { 
+  while (@fs) {
     my $n = pop @fs;
     if (is_prime($n)) { push @p_holf, $n; }
     else              { push @fs, Math::Prime::Util::holf_factor($n); }
diff --git a/xt/primality-proofs.pl b/xt/primality-proofs.pl
index cfaaf41..a1f081f 100755
--- a/xt/primality-proofs.pl
+++ b/xt/primality-proofs.pl
@@ -47,7 +47,7 @@ sub test_proofs {
     my $bits = int(rand($size-$minsize)) + $minsize;
     my $n;
     if      ($prime_method eq 'cpmaurer') {
-      $n = Crypt::Primes::maurer(Size=>$bits); 
+      $n = Crypt::Primes::maurer(Size=>$bits);
     } elsif ($prime_method eq 'pari') {
       # This is ~4x faster, has awful distribution.  Still much slower than 
MPU.
       # $n = Math::Pari::nextprime( ...makerandom... );
diff --git a/xt/primes-edgecases.pl b/xt/primes-edgecases.pl
index b0d340c..36915f8 100755
--- a/xt/primes-edgecases.pl
+++ b/xt/primes-edgecases.pl
@@ -35,7 +35,7 @@ SKIP: {
 my @lprimes = (~0 > 4294967295)
  ? (qw/18446744073709550671 18446744073709550681 18446744073709550717 
18446744073709550719 18446744073709550771 18446744073709550773 
18446744073709550791 18446744073709550873 18446744073709551113 
18446744073709551163 18446744073709551191 18446744073709551253 
18446744073709551263 18446744073709551293 18446744073709551337 
18446744073709551359 18446744073709551427 18446744073709551437 
18446744073709551521 18446744073709551533 18446744073709551557/)
  : (qw/4294966297 4294966337 4294966367 4294966373 4294966427 4294966441 
4294966447 4294966477 4294966553 4294966583 4294966591 4294966619 4294966639 
4294966651 4294966657 4294966661 4294966667 4294966769 4294966813 4294966829 
4294966877 4294966909 4294966927 4294966943 4294966981 4294966997 4294967029 
4294967087 4294967111 4294967143 4294967161 4294967189 4294967197 4294967231 
4294967279 4294967291/);
- 
+
 diag "\nChecking numbers near end with iterator\n";
 foreach my $bdelta (reverse 0 .. 100) {
   foreach my $edelta (reverse 0 .. $bdelta) {

-- 
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