Use strict and all warnings.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 119689423dbbb5cca14ed45310c4816ed02b60d6..c2aeba7ea5496e6ce177502065560e0223b6d725 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,19 @@
+2007-07-17  Ben Pfaff  <blp@gnu.org>
+
+       Patch #19335.  Reviewed by John Darrington.
+
+       * expressions/randist/compare.pl: Use strict and all warnings.
+
+       * expressions/randist/randist.pl: Ditto.
+
+       * formats/num-out-cmp.pl: Ditto.
+
+       * formats/num-out-compare.pl: Ditto.
+
+       * formats/num-out-decmp.pl: Ditto.
+
+       * formats/num-out.pl: Ditto.
+
 2007-07-17  Ben Pfaff  <blp@gnu.org>
 
        * formats/float-format.h: Drop the tests that depend on parsing

diff --git a/tests/expressions/randist/compare.pl b/tests/expressions/randist/compare.pl
index 28bd0fb0303561d6f2ba6c772f87b4848466ad4e..7b516f97605a2edfacf84fd980051ae926656236 100755 (executable)
--- a/tests/expressions/randist/compare.pl
+++ b/tests/expressions/randist/compare.pl
@@ -1,6 +1,7 @@
 #! /usr/bin/perl -w
 
 use strict;
+use warnings 'all';
 
 my ($epsilon) = 1;
 

diff --git a/tests/expressions/randist/randist.pl b/tests/expressions/randist/randist.pl
index 461fc54126a08d5ffd8a42c61d9f75ae6c9504b0..212b22270501363d83e0518c34c137fd64dbcdd3 100755 (executable)
--- a/tests/expressions/randist/randist.pl
+++ b/tests/expressions/randist/randist.pl
@@ -1,4 +1,5 @@
-use warnings;
+use strict;
+use warnings 'all';
 
 our (@funcs);
 our (@vars);

diff --git a/tests/formats/num-out-cmp.pl b/tests/formats/num-out-cmp.pl
index d85b7cbaabdb6c6e3693564bbb21ccd4f9fef47a..8e83f5066c10c48d1ff5bab929e1d4d17fc731d7 100644 (file)
--- a/tests/formats/num-out-cmp.pl
+++ b/tests/formats/num-out-cmp.pl
@@ -1,5 +1,5 @@
-use warnings;
 use strict;
+use warnings 'all';
 
 my (@prev) = ();
 our ($n) = 0;

diff --git a/tests/formats/num-out-compare.pl b/tests/formats/num-out-compare.pl
index f43ef18d4f284006974acca5e6e2bdf6834f7df4..be3c6239801b1e0246ace8a55e343eb5a1370c82 100644 (file)
--- a/tests/formats/num-out-compare.pl
+++ b/tests/formats/num-out-compare.pl
@@ -1,6 +1,7 @@
 #! /usr/bin/perl -w
 
 use strict;
+use warnings 'all';
 use Getopt::Long;
 
 my $exact = 0;

diff --git a/tests/formats/num-out-decmp.pl b/tests/formats/num-out-decmp.pl
index 3c066fee3df0e0ada4bf9a939108bda7720b8e6a..11007c000f0e78a7292281f4a2c298b28e213034 100644 (file)
--- a/tests/formats/num-out-decmp.pl
+++ b/tests/formats/num-out-decmp.pl
@@ -1,5 +1,5 @@
-use warnings;
 use strict;
+use warnings 'all';
 
 my (@line);
 while (<>) {

diff --git a/tests/formats/num-out.pl b/tests/formats/num-out.pl
index 1bb602b530effec0f6a1d657e409241b9ef093a9..86da406be91ebba43b617815742282d90936907c 100644 (file)
--- a/tests/formats/num-out.pl
+++ b/tests/formats/num-out.pl
@@ -1,5 +1,5 @@
-use warnings;
 use strict;
+use warnings 'all';
 
 my @values = qw(0 2 9.5 27 271 999.95 2718 9999.995 27182 271828
 2718281 2**39 2**333 2**-21 -2 -9.5 -27 -271 -999.95 -2718 -9999.995