Diff for /db/prgsrc/eq/Attic/findequal.pl between versions 1.2 and 1.3

version 1.2, 2001/05/18 02:52:59 version 1.3, 2001/05/18 03:12:49
Line 60  while ((($id, $a) = getrow), $id) Line 60  while ((($id, $a) = getrow), $id)
         $a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/;          $a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/;
         $a=uc $a;          $a=uc $a;
   
         $a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà]//g;          $a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâàÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ]//g;
         $ar[$id]=$a;          $ar[$id]=$a;
         $last=$id;          $last=$id;
 }  }

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>