Print matches asynchronously.

[utils.git] / tel2name

diff --git a/tel2name b/tel2name
index f9744bc..7e01302 100755 (executable)
--- a/tel2name
+++ b/tel2name
@@ -95,6 +95,8 @@ match: while(<YP>) {
     for $prev (@matches) {
        next match if $prev eq $_;
     }
+    print "$_\n";
+    flush;
     push @matches, $_;
 }
 match: while(<WP>) {
@@ -102,9 +104,7 @@ match: while(<WP>) {
     for $prev (@matches) {
        next match if $prev eq $_;
     }
+    print "$_\n";
+    flush;
     push @matches, $_;
 }
-
-for $match (@matches) {
-    print "$match\n";
-}