| … | … | ||
|---|---|---|---|
| 43 | # TODO: make sure results are unique | 43 | # TODO: make sure results are unique |
| 44 | 44 | ||
| 45 | grep { is_prefix_of $_, @path } | 45 | grep { is_prefix_of $_, @path } |
| 46 | map @$_, | 46 | map @$_, |
| 47 | $kw eq "*" ? @wiki{sort keys %wiki} | 47 | $kw eq "*" ? @wiki{sort keys %wiki} |
| 48 | : grep $_, $wiki{$kw} | 48 | : $wiki{$kw} || () |
| 49 | } | 49 | } |
| 50 | 50 | ||
| 51 | sub full_path_of($) { | 51 | sub full_path_of($) { |
| 52 | my ($node) = @_; | 52 | my ($node) = @_; |
| 53 | 53 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |