… | … | ||
---|---|---|---|
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 |