| … | … | ||
|---|---|---|---|
| 45 | my $kw = lc pop @path; | 45 | my $kw = lc pop @path; |
| 46 | 46 | ||
| 47 | $node = $node->[N_PARENT] | 47 | $node = $node->[N_PARENT] |
| 48 | or return 0; | 48 | or return 0; |
| 49 | 49 | ||
| 50 | #TODO: maybe get rid of lowercasing? | ||
| 50 | return scalar grep $_ eq $kw, @{ $node->[N_KW] }; | 51 | return scalar grep lc eq $kw, @{ $node->[N_KW] }; |
| 51 | } | 52 | } |
| 52 | 53 | ||
| 53 | sub find(@) { | 54 | sub find(@) { |
| 54 | my (@path) = @_; | 55 | my (@path) = @_; |
| 55 | 56 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |