X-Git-Url: http://dolda2000.com/gitweb/?p=utils.git;a=blobdiff_plain;f=tel2name;h=7e013028b98e40f2f533346665378184c1b58a62;hp=f9744bcc7d7fc92887ac80ad928dd8de2adee470;hb=d865a9082a348e93d66f7a2f6e99f9407fcab6e4;hpb=27366e7151d7e024586d85afee05ea638c151169 diff --git a/tel2name b/tel2name index f9744bc..7e01302 100755 --- a/tel2name +++ b/tel2name @@ -95,6 +95,8 @@ match: while() { for $prev (@matches) { next match if $prev eq $_; } + print "$_\n"; + flush; push @matches, $_; } match: while() { @@ -102,9 +104,7 @@ match: while() { for $prev (@matches) { next match if $prev eq $_; } + print "$_\n"; + flush; push @matches, $_; } - -for $match (@matches) { - print "$match\n"; -}