Diff for /db/prgsrc/eq/Attic/findequal.pl between versions 1.1 and 1.4

version 1.1, 2001/05/18 01:37:51 version 1.4, 2001/05/18 03:23:45
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.1  
changed lines
  Added in v.1.4


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