From 98d4c667ddd538a9040f5f761c85a66e66e0f2b3 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Wed, 18 Jul 2007 03:20:25 +0000 Subject: [PATCH 1/1] Use strict and all warnings. --- tests/ChangeLog | 16 ++++++++++++++++ tests/expressions/randist/compare.pl | 1 + tests/expressions/randist/randist.pl | 3 ++- tests/formats/num-out-cmp.pl | 2 +- tests/formats/num-out-compare.pl | 1 + tests/formats/num-out-decmp.pl | 2 +- tests/formats/num-out.pl | 2 +- 7 files changed, 23 insertions(+), 4 deletions(-) diff --git a/tests/ChangeLog b/tests/ChangeLog index 119689423d..c2aeba7ea5 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,19 @@ +2007-07-17 Ben Pfaff + + 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 * 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 28bd0fb030..7b516f9760 100755 --- 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 461fc54126..212b222705 100755 --- 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 d85b7cbaab..8e83f5066c 100644 --- 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 f43ef18d4f..be3c623980 100644 --- 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 3c066fee3d..11007c000f 100644 --- 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 1bb602b530..86da406be9 100644 --- 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 -- 2.30.2