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 6b44722cfe808605603a549ac3690c5998bb1eb7..d5401dd4c7aac55bf1f08d8c5cf5ecbd0c9ff733 100644 (file)
--- 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;
   }