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 23 Sep 2004 12:48:07 -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.new"); while() @@ -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;