db/prgsrc/makeauthors.pl - diff

Return to makeauthors.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.1, 2001/12/05 00:56:57	version 1.2, 2003/01/08 21:40:21
Line 30 use POSIX qw (locale_h);	Line 30 use POSIX qw (locale_h);
open NICKS, "<$nicksfile" or die "Can not open nicks";	open NICKS, "<$nicksfile" or die "Can not open nicks";
open SSNICKS, "<$ssnicksfile" or die "Can not open ssnicks";	open SSNICKS, "<$ssnicksfile" or die "Can not open ssnicks";
open UNKNOWN, ">uauthors";	open UNKNOWN, ">uauthors";
	open UNICKS, ">unicks";
open STDERR, ">errors";	open STDERR, ">errors";
my ($thislocale);	my ($thislocale);
if ($^O =~ /win/i) {	if ($^O =~ /win/i) {
Line 131 while (<AUTHORS>)	Line 132 while (<AUTHORS>)

foreach $as(keys %unknick)	foreach $as(keys %unknick)
{	{
print "$as \n ", (join "\n ", (grep {$nick{$_}=~/$as/} keys %nick));	print UNICKS "$as \n ", (join "\n ", (grep {$nick{$_}=~/$as/} keys %nick));
print "\n";	print UNICKS "\n";
}	}

%forbidden=checktable('equalto')? getequalto : ();	%forbidden=checktable('equalto')? getequalto : ();