From: Florian Forster <octo@collectd.org>
Date: Wed, 14 Dec 2011 12:02:16 +0000 (+0100)
Subject: collectd-perl(5): Fix example Perl script.
X-Git-Tag: collectd-5.0.2~4
X-Git-Url: https://git.octo.it/?p=collectd.git;a=commitdiff_plain;h=3e38e2981592bf0ba87f8c63ec8a4c29ec9ef702

collectd-perl(5): Fix example Perl script.

Thanks to Sergey for catching this!

Change-Id: I4bbb609079734cd54d68f77681ea742b4eb83239
---

diff --git a/src/collectd-perl.pod b/src/collectd-perl.pod
index 6b44722c..d5401dd4 100644
--- a/src/collectd-perl.pod
+++ b/src/collectd-perl.pod
@@ -656,9 +656,9 @@ A very simple read function might look like:
 
   sub foobar_read
   {
-    my $vl = { plugin => 'foobar' };
+    my $vl = { plugin => 'foobar', type => 'gauge' };
     $vl->{'values'} = [ rand(42) ];
-    plugin_dispatch_values ('gauge', $vl);
+    plugin_dispatch_values ($vl);
     return 1;
   }