From: Ben Pfaff <blp@gnu.org>
Date: Wed, 18 Jul 2007 03:20:25 +0000 (+0000)
Subject: Use strict and all warnings.
X-Git-Tag: v0.6.0~371
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=98d4c667ddd538a9040f5f761c85a66e66e0f2b3;p=pspp-builds.git

Use strict and all warnings.
---

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