db/prgsrc/updateRS1.pl - diff

Return to updateRS1.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.3, 2001/11/01 01:45:00	version 1.5, 2001/12/10 20:37:23
Line 64 my $nf;	Line 64 my $nf;

#open WARN, ">$warnings";	#open WARN, ">$warnings";

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


if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};	if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
Line 86 foreach $d(@dictionaries)	Line 86 foreach $d(@dictionaries)
chomp;	chomp;
s/\s*$//;	s/\s*$//;
($aa,$b)=split(/\//);	($aa,$b)=split(/\//);
	$aa=~tr/Łł/Ĺĺ/;
$a= uc $aa;	$a= uc $aa;
$words{$a}.=$b \|\| "!";	$words{$a}.=$b \|\| "!";
}	}