Compare names case insensitively in tel2name.
authorfredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Thu, 15 May 2008 18:22:48 +0000 (18:22 +0000)
committerfredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Thu, 15 May 2008 18:22:48 +0000 (18:22 +0000)
git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1113 959494ce-11ee-0310-bf91-de5d638817bd

tel2name

index 7e01302..819f0b5 100755 (executable)
--- a/tel2name
+++ b/tel2name
@@ -93,7 +93,7 @@ binmode(WP, ":utf8");
 match: while(<YP>) {
     chomp;
     for $prev (@matches) {
 match: while(<YP>) {
     chomp;
     for $prev (@matches) {
-       next match if $prev eq $_;
+       next match if (lc $prev) eq (lc $_);
     }
     print "$_\n";
     flush;
     }
     print "$_\n";
     flush;
@@ -102,7 +102,7 @@ match: while(<YP>) {
 match: while(<WP>) {
     chomp;
     for $prev (@matches) {
 match: while(<WP>) {
     chomp;
     for $prev (@matches) {
-       next match if $prev eq $_;
+       next match if (lc $prev) eq (lc $_);
     }
     print "$_\n";
     flush;
     }
     print "$_\n";
     flush;