summaryrefslogtreecommitdiffstats
path: root/lib/Smokeping/probes/base.pm
diff options
context:
space:
mode:
authorNiko Tyni <ntyni@iki.fi>2005-02-26 19:00:27 +0100
committerNiko Tyni <ntyni@iki.fi>2005-02-26 19:00:27 +0100
commit30f15c0632513caff0c322c4cf1a8a1e10d9865c (patch)
treed83bf1cf7da50186d2fa91c5fe65757e013e98fd /lib/Smokeping/probes/base.pm
parent90caa79fbf5c6be6d42e2768d7a5868ac851895d (diff)
downloadsmokeping-30f15c0632513caff0c322c4cf1a8a1e10d9865c.tar.gz
smokeping-30f15c0632513caff0c322c4cf1a8a1e10d9865c.tar.xz
SYNOPSYS is really spelled SYNOPSIS. Shame on me.
Diffstat (limited to 'lib/Smokeping/probes/base.pm')
-rw-r--r--lib/Smokeping/probes/base.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Smokeping/probes/base.pm b/lib/Smokeping/probes/base.pm
index 8cc4def..4ae81b5 100644
--- a/lib/Smokeping/probes/base.pm
+++ b/lib/Smokeping/probes/base.pm
@@ -42,9 +42,9 @@ sub pod {
my $class = shift;
my $pod = "";
my $podhash = $class->pod_hash;
- $podhash->{synopsys} = $class->pod_synopsys;
+ $podhash->{synopsis} = $class->pod_synopsis;
$podhash->{variables} = $class->pod_variables;
- for my $what (qw(name overview synopsys description variables authors notes bugs see_also)) {
+ 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";
@@ -316,7 +316,7 @@ sub _makevars {
return $to;
}
-sub pod_synopsys {
+sub pod_synopsis {
my $class = shift;
my $classname = ref $class||$class;
$classname =~ s/^Smokeping::probes:://;
@@ -329,8 +329,8 @@ sub pod_synopsys {
+$classname
DOC
- $pod .= $class->_pod_synopsys($probevars);
- my $targetpod = $class->_pod_synopsys($targetvars);
+ $pod .= $class->_pod_synopsis($probevars);
+ my $targetpod = $class->_pod_synopsis($targetvars);
$pod .= "\n # The following variables can be overridden in each target section\n$targetpod"
if defined $targetpod and $targetpod ne "";
$pod .= <<DOC;
@@ -353,8 +353,8 @@ DOC
return $pod;
}
-# synopsys for one hash ref
-sub _pod_synopsys {
+# synopsis for one hash ref
+sub _pod_synopsis {
my $class = shift;
my $vars = shift;
my %mandatory;