Print matches asynchronously.

git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1112 959494ce-11ee-0310-bf91-de5d638817bd

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";
-}