From: Matthias Bethke <mbe@financial.com>
Date: Tue, 22 Nov 2016 16:35:36 +0000 (+0700)
Subject: allow fractional seconds in listval_filter()
X-Git-Tag: collectd-5.7.0~28^2~3
X-Git-Url: https://git.octo.it/?p=collectd.git;a=commitdiff_plain;h=e620d437b83b3a38c92abe71e158cb21146bd184

allow fractional seconds in listval_filter()
---

diff --git a/bindings/perl/lib/Collectd/Unixsock.pm b/bindings/perl/lib/Collectd/Unixsock.pm
index ca21d405..37f04cfe 100644
--- a/bindings/perl/lib/Collectd/Unixsock.pm
+++ b/bindings/perl/lib/Collectd/Unixsock.pm
@@ -383,7 +383,7 @@ sub listval_filter
 	(exists $args{plugin_instance}   ? "-$args{plugin_instance}" : '(?:-[^/]+)?') .
 	(exists $args{type}              ? "/$args{type}"            : '/[^/-]+') .
 	(exists $args{type_instance}     ? "-$args{type_instance}"   : '(?:-[^/]+)?');
-	$pattern = qr/^\d+ $pattern$/;
+	$pattern = qr/^\d+\.\d+ $pattern$/;
 
 	my $msg = $self->_socket_command('LISTVAL') or return;
 	($nresults, $msg) = split / /, $msg, 2;
@@ -410,7 +410,7 @@ sub listval_filter
 	} # for (i = 0 .. $status)
 
 	return @ret;
-} # listval
+} # listval_filter
 
 =item I<$res> = I<$self>-E<gt>B<listval> ()