![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to updateRS1.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to updateRS1.pl CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.6, 2002/01/13 00:32:12 | version 1.7, 2002/06/15 03:43:48 |
|---|---|
| Line 143 foreach $wordnumber(0..$#list) | Line 143 foreach $wordnumber(0..$#list) |
| @n= split ' ',$n; | @n= split ' ',$n; |
| $nfkvo{$_}++ foreach @n; | $nfkvo{$_}++ foreach @n; |
| my $r=packword($fieldnumber, $id,$wordnumber%256); | my $r=packword($fieldnumber, $id,$wordnumber%256); |
| print "$word !$r!\n"; | |
| $neww2k{$_}.=$r foreach (@n); | $neww2k{$_}.=$r foreach (@n); |
| } | } |
| else { | else { |