From 98d4c667ddd538a9040f5f761c85a66e66e0f2b3 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Wed, 18 Jul 2007 03:20:25 +0000 Subject: [PATCH] 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 11968942..c2aeba7e 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 28bd0fb0..7b516f97 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 461fc541..212b2227 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 d85b7cba..8e83f506 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 f43ef18d..be3c6239 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 3c066fee..11007c00 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 1bb602b5..86da406b 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