… | |
… | |
79 | |
79 | |
80 | $pl->reply (undef, $res); |
80 | $pl->reply (undef, $res); |
81 | |
81 | |
82 | } elsif (my $item = $TOPIC->{$topic}) { |
82 | } elsif (my $item = $TOPIC->{$topic}) { |
83 | my ($type, @pars) = @$item; |
83 | my ($type, @pars) = @$item; |
84 | $pl->reply (undef, cf::pod::as_text \@pars); |
84 | $pl->reply (undef, cf::pod::as_cfpod \@pars); |
85 | |
85 | |
86 | } else { |
86 | } else { |
87 | $pl->reply (undef, "'$topic' no such help topic, try just 'help' to get a list of topics."); |
87 | $pl->reply (undef, "'$topic' no such help topic, try just 'help' to get a list of topics."); |
88 | } |
88 | } |
89 | }; |
89 | }; |