Strictify make_authors

[Francois Gouget]

Running ./tools/make_authors created an AUTHORS.new file that looked 
very reasonable. Actually it had three sorting differences that I 
attribute to a locale difference. Let me know if something is wrong.


Changelog:

  * tools/make_authors

    Strictified.


-- 
Francois Gouget         fgouget at free.fr        http://fgouget.free.fr/
                           La terre est une b\xEAta...
-------------- next part --------------
Index: tools/make_authors
===================================================================
RCS file: /var/cvs/wine/tools/make_authors,v
retrieving revision 1.5
diff -u -r1.5 make_authors
--- tools/make_authors	18 Nov 2003 19:50:24 -0000	1.5
+++ tools/make_authors	19 Oct 2004 18:03:43 -0000
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/bin/perl -w
 #
 # Generate AUTHORS
 #
@@ -18,7 +18,9 @@
 # License along with this library; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
+use strict;
 
+my @authors;
 open(AUTHORS,"<AUTHORS") or die "Can't open AUTHORS";
 open(NEWAUTHORS,">AUTHORS.new");
 while(<AUTHORS>)
@@ -33,10 +35,11 @@
   }
 
 # Sort them
-sub cmpnames
+sub cmpnames()
   {
-    @anames = split(" ",$a);
-    @bnames = split(" ",$b);
+    my @anames = split(" ",$a);
+    my @bnames = split(" ",$b);
+    my $ret;
     $ret = $anames[-1] cmp $bnames[-1];
     $ret = $anames[0] cmp $bnames[0] unless $ret;
     return $ret;