X-Git-Url: http://dolda2000.com/gitweb/?p=utils.git;a=blobdiff_plain;f=tel2name;h=1623d7c1d641d804ece7da982ebcdf040f7bdcd9;hp=7e013028b98e40f2f533346665378184c1b58a62;hb=307f4e9308c8c11069f48e3bd88fbedddf4f6de3;hpb=d865a9082a348e93d66f7a2f6e99f9407fcab6e4

diff --git a/tel2name b/tel2name
index 7e01302..1623d7c 100755
--- a/tel2name
+++ b/tel2name
@@ -90,19 +90,19 @@ if($wppid == 0) {
 binmode(YP, ":utf8");
 binmode(WP, ":utf8");
 
-match: while(<YP>) {
+match: while(<WP>) {
     chomp;
     for $prev (@matches) {
-	next match if $prev eq $_;
+	next match if (lc $prev) eq (lc $_);
     }
     print "$_\n";
     flush;
     push @matches, $_;
 }
-match: while(<WP>) {
+match: while(<YP>) {
     chomp;
     for $prev (@matches) {
-	next match if $prev eq $_;
+	next match if (lc $prev) eq (lc $_);
     }
     print "$_\n";
     flush;