Clean up spacing.

3 files changed, 7 insertions, 7 deletions

diff --git a/demos/perl/GMP.xs b/demos/perl/GMP.xs
index c9e4a79f3..2282c8928 100644
--- a/demos/perl/GMP.xs
+++ b/demos/perl/GMP.xs
@@ -63,7 +63,7 @@ along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.
 #define NDEBUG
 
 /* Change this to "#define TRACE(x) x" for some diagnostics. */
-#define TRACE(x) 
+#define TRACE(x)
 
 
 #include <assert.h>
diff --git a/demos/perl/test.pl b/demos/perl/test.pl
index 9edb08f0e..40a903378 100644
--- a/demos/perl/test.pl
+++ b/demos/perl/test.pl
@@ -781,7 +781,7 @@ foreach my $i ([  1, 19,  1 ],
     ok (&$fun (mpz($$i[0]), $$i[1]) == $$i[2]);
     ok (&$fun (mpz($$i[0]), mpz($$i[1])) == $$i[2]);
   }
-}	       
+}
 
 #------------------------------------------------------------------------------
 # GMP::Mpz::lcm
@@ -1677,7 +1677,7 @@ ok (floor(mpf(7.5)) == 7.0);
 
 { my $old_prec = get_default_prec();
   set_default_prec(128);
- 
+
   ok (  mpf_eq (mpz("0x10000000000000001"), mpz("0x10000000000000002"), 1));
   ok (! mpf_eq (mpz("0x11"), mpz("0x12"), 128));
 
@@ -1789,7 +1789,7 @@ ok (trunc(mpf(7.5)) == 7.0);
 { my $r = randstate();
   my $z = mpz_urandomm($r, mpz(3)**100);
   ok (UNIVERSAL::isa($z,"GMP::Mpz")); }
-  
+
 #------------------------------------------------------------------------------
 # GMP::Rand::mpz_urandomb_ui
 
@@ -2100,7 +2100,7 @@ ok (via_printf ("%#X", mpq(15,16))  eq '0XF/0X10');
 
 ok (via_printf ("%*.*f", 10, 3, 1.25) eq '     1.250');
 ok (via_printf ("%*.*f", 10, 3, mpf(1.5))   eq '     1.500');
- 
+
 #------------------------------------------------------------------------------
 # GMP::sgn
 
diff --git a/demos/perl/test2.pl b/demos/perl/test2.pl
index 0f30326ca..645d3cfbb 100644
--- a/demos/perl/test2.pl
+++ b/demos/perl/test2.pl
@@ -28,14 +28,14 @@ use GMP::Mpz qw(:constants);
   ok (UNIVERSAL::isa ($a, "GMP::Mpz"));
 }
 use GMP::Mpz qw(:noconstants);
-  
+
 use GMP::Mpq qw(:constants);
 {
   my $a = 123;
   ok (UNIVERSAL::isa ($a, "GMP::Mpq"));
 }
 use GMP::Mpq qw(:noconstants);
-  
+
 use GMP::Mpf qw(:constants);
 {
   my $a = 123;