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