From: fredrik Date: Thu, 15 May 2008 18:22:48 +0000 (+0000) Subject: Compare names case insensitively in tel2name. X-Git-Url: http://git.dolda2000.com/gitweb/?a=commitdiff_plain;ds=sidebyside;h=2b7d9218797959988e25c6cc8282a2f5eaa107fe;p=utils.git Compare names case insensitively in tel2name. git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1113 959494ce-11ee-0310-bf91-de5d638817bd --- diff --git a/tel2name b/tel2name index 7e01302..819f0b5 100755 --- a/tel2name +++ b/tel2name @@ -93,7 +93,7 @@ binmode(WP, ":utf8"); match: while() { chomp; for $prev (@matches) { - next match if $prev eq $_; + next match if (lc $prev) eq (lc $_); } print "$_\n"; flush; @@ -102,7 +102,7 @@ match: while() { match: while() { chomp; for $prev (@matches) { - next match if $prev eq $_; + next match if (lc $prev) eq (lc $_); } print "$_\n"; flush;