[Pspp-cvs] pspp/tests formats/num-out.pl formats/num-out-d...

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 07/07/18 03:20:26

Modified files:
        tests/formats  : num-out.pl num-out-decmp.pl num-out-compare.pl 
                         num-out-cmp.pl 
        tests/expressions/randist: randist.pl compare.pl 
        tests          : ChangeLog 

Log message:
        Use strict and all warnings.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/formats/num-out.pl?cvsroot=pspp&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/formats/num-out-decmp.pl?cvsroot=pspp&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/formats/num-out-compare.pl?cvsroot=pspp&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/formats/num-out-cmp.pl?cvsroot=pspp&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/expressions/randist/randist.pl?cvsroot=pspp&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/expressions/randist/compare.pl?cvsroot=pspp&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/ChangeLog?cvsroot=pspp&r1=1.95&r2=1.96

Patches:
Index: formats/num-out.pl
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/formats/num-out.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- formats/num-out.pl  5 Nov 2006 05:20:53 -0000       1.1
+++ formats/num-out.pl  18 Jul 2007 03:20:25 -0000      1.2
@@ -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

Index: formats/num-out-decmp.pl
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/formats/num-out-decmp.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- formats/num-out-decmp.pl    5 Nov 2006 05:20:53 -0000       1.1
+++ formats/num-out-decmp.pl    18 Jul 2007 03:20:25 -0000      1.2
@@ -1,5 +1,5 @@
-use warnings;
 use strict;
+use warnings 'all';
 
 my (@line);
 while (<>) {

Index: formats/num-out-compare.pl
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/formats/num-out-compare.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- formats/num-out-compare.pl  14 Dec 2006 05:35:38 -0000      1.2
+++ formats/num-out-compare.pl  18 Jul 2007 03:20:25 -0000      1.3
@@ -1,6 +1,7 @@
 #! /usr/bin/perl -w
 
 use strict;
+use warnings 'all';
 use Getopt::Long;
 
 my $exact = 0;

Index: formats/num-out-cmp.pl
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/formats/num-out-cmp.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- formats/num-out-cmp.pl      5 Nov 2006 05:20:53 -0000       1.1
+++ formats/num-out-cmp.pl      18 Jul 2007 03:20:25 -0000      1.2
@@ -1,5 +1,5 @@
-use warnings;
 use strict;
+use warnings 'all';
 
 my (@prev) = ();
 our ($n) = 0;

Index: expressions/randist/randist.pl
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/expressions/randist/randist.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- expressions/randist/randist.pl      4 Jul 2006 04:17:50 -0000       1.2
+++ expressions/randist/randist.pl      18 Jul 2007 03:20:26 -0000      1.3
@@ -1,4 +1,5 @@
-use warnings;
+use strict;
+use warnings 'all';
 
 our (@funcs);
 our (@vars);

Index: expressions/randist/compare.pl
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/expressions/randist/compare.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- expressions/randist/compare.pl      4 Jul 2006 04:17:50 -0000       1.1
+++ expressions/randist/compare.pl      18 Jul 2007 03:20:26 -0000      1.2
@@ -1,6 +1,7 @@
 #! /usr/bin/perl -w
 
 use strict;
+use warnings 'all';
 
 my ($epsilon) = 1;
 

Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/ChangeLog,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- ChangeLog   18 Jul 2007 02:45:57 -0000      1.95
+++ ChangeLog   18 Jul 2007 03:20:26 -0000      1.96
@@ -1,5 +1,21 @@
 2007-07-17  Ben Pfaff  <address@hidden>
 
+       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  <address@hidden>
+
        * formats/float-format.h: Drop the tests that depend on parsing
        "-0" from a syntax file.  Also make float-format.sh error messages
        easier to read, by changing the sed command so that error line