--- db/prgsrc/makeauthors.pl	2001/12/05 00:56:57	1.1
+++ db/prgsrc/makeauthors.pl	2003/01/08 21:40:21	1.2
@@ -30,6 +30,7 @@ use POSIX qw (locale_h);
 open NICKS, "<$nicksfile" or die "Can not open nicks";
 open SSNICKS, "<$ssnicksfile" or die "Can not open ssnicks";
 open UNKNOWN, ">uauthors";
+open UNICKS, ">unicks";
 open STDERR, ">errors";
   my ($thislocale);
   if ($^O =~ /win/i) {
@@ -131,8 +132,8 @@ while (<AUTHORS>)
 
 foreach $as(keys %unknick)
 {
-    print "$as \n ", (join "\n ", (grep {$nick{$_}=~/$as/} keys %nick));
-    print "\n";
+    print UNICKS "$as \n ", (join "\n ", (grep {$nick{$_}=~/$as/} keys %nick));
+    print UNICKS "\n";
 }
 
 %forbidden=checktable('equalto')? getequalto : ();