diff options
| author | Niko Tyni <ntyni@iki.fi> | 2005-03-06 18:16:04 +0100 |
|---|---|---|
| committer | Niko Tyni <ntyni@iki.fi> | 2005-03-06 18:16:04 +0100 |
| commit | 455ab143f72d62c07c9cef46ad3a726e2dcde065 (patch) | |
| tree | 04eba459e54fadd0cbde76a86d73ee3c2b5d6253 /lib/Smokeping/probes/base.pm | |
| parent | a4c71fe71c8f40a3534490a010cde424063003ef (diff) | |
| download | smokeping-455ab143f72d62c07c9cef46ad3a726e2dcde065.tar.gz smokeping-455ab143f72d62c07c9cef46ad3a726e2dcde065.tar.xz | |
* lib/Smokeping/probes/base.pm:
+ probe documents had a 'SEE_ALSO' section;
fixed to read "SEE ALSO".
Diffstat (limited to 'lib/Smokeping/probes/base.pm')
| -rw-r--r-- | lib/Smokeping/probes/base.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Smokeping/probes/base.pm b/lib/Smokeping/probes/base.pm index 4ae81b5..a322a21 100644 --- a/lib/Smokeping/probes/base.pm +++ b/lib/Smokeping/probes/base.pm @@ -47,7 +47,9 @@ sub pod { for my $what (qw(name overview synopsis description variables authors notes bugs see_also)) { my $contents = $podhash->{$what}; next if not defined $contents or $contents eq ""; - $pod .= "=head1 " . uc $what . "\n\n"; + my $headline = uc $what; + $headline =~ s/_/ /; # see_also => SEE ALSO + $pod .= "=head1 $headline\n\n"; $pod .= $contents; chomp $pod; $pod .= "\n\n"; |