Dolda2000 GitWeb
/
utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Compare names case insensitively in tel2name.
[utils.git]
/
tel2name
diff --git
a/tel2name
b/tel2name
index
f9744bc
..
819f0b5
100755
(executable)
--- a/
tel2name
+++ b/
tel2name
@@
-93,18
+93,18
@@
binmode(WP, ":utf8");
match: while(<YP>) {
chomp;
for $prev (@matches) {
match: while(<YP>) {
chomp;
for $prev (@matches) {
- next match if
$prev eq $_
;
+ next match if
(lc $prev) eq (lc $_)
;
}
}
+ print "$_\n";
+ flush;
push @matches, $_;
}
match: while(<WP>) {
chomp;
for $prev (@matches) {
push @matches, $_;
}
match: while(<WP>) {
chomp;
for $prev (@matches) {
- next match if
$prev eq $_
;
+ next match if
(lc $prev) eq (lc $_)
;
}
}
+ print "$_\n";
+ flush;
push @matches, $_;
}
push @matches, $_;
}
-
-for $match (@matches) {
- print "$match\n";
-}