From: fredrik Date: Tue, 20 May 2008 15:24:33 +0000 (+0000) Subject: Print WP matches first, since YP takes more time. X-Git-Url: http://git.dolda2000.com/gitweb/?a=commitdiff_plain;h=d740b990e5e6202dc9f4b5976de67342504add62;p=utils.git Print WP matches first, since YP takes more time. git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1114 959494ce-11ee-0310-bf91-de5d638817bd --- diff --git a/tel2name b/tel2name index 819f0b5..1623d7c 100755 --- a/tel2name +++ b/tel2name @@ -90,7 +90,7 @@ if($wppid == 0) { binmode(YP, ":utf8"); binmode(WP, ":utf8"); -match: while() { +match: while() { chomp; for $prev (@matches) { next match if (lc $prev) eq (lc $_); @@ -99,7 +99,7 @@ match: while() { flush; push @matches, $_; } -match: while() { +match: while() { chomp; for $prev (@matches) { next match if (lc $prev) eq (lc $_);