From 3e38e2981592bf0ba87f8c63ec8a4c29ec9ef702 Mon Sep 17 00:00:00 2001
From: Florian Forster <octo@collectd.org>
Date: Wed, 14 Dec 2011 13:02:16 +0100
Subject: [PATCH] collectd-perl(5): Fix example Perl script.

Thanks to Sergey for catching this!

Change-Id: I4bbb609079734cd54d68f77681ea742b4eb83239
---
 src/collectd-perl.pod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
   }
 
-- 
2.30.2