Print WP matches first, since YP takes more time.
authorfredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Tue, 20 May 2008 15:24:33 +0000 (15:24 +0000)
committerfredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Tue, 20 May 2008 15:24:33 +0000 (15:24 +0000)
git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1114 959494ce-11ee-0310-bf91-de5d638817bd

tel2name

index 819f0b5..1623d7c 100755 (executable)
--- a/tel2name
+++ b/tel2name
@@ -90,7 +90,7 @@ if($wppid == 0) {
 binmode(YP, ":utf8");
 binmode(WP, ":utf8");
 
-match: while(<YP>) {
+match: while(<WP>) {
     chomp;
     for $prev (@matches) {
        next match if (lc $prev) eq (lc $_);
@@ -99,7 +99,7 @@ match: while(<YP>) {
     flush;
     push @matches, $_;
 }
-match: while(<WP>) {
+match: while(<YP>) {
     chomp;
     for $prev (@matches) {
        next match if (lc $prev) eq (lc $_);