X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=tel2name;h=819f0b5e7af9daffcd80cde3c2b0de2cbfc2b364;hb=2b7d9218797959988e25c6cc8282a2f5eaa107fe;hp=f9744bcc7d7fc92887ac80ad928dd8de2adee470;hpb=27366e7151d7e024586d85afee05ea638c151169;p=utils.git

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