Code

allow fractional seconds in listval_filter()
authorMatthias Bethke <mbe@financial.com>
Tue, 22 Nov 2016 16:35:36 +0000 (23:35 +0700)
committerMatthias Bethke <mbe@financial.com>
Tue, 22 Nov 2016 16:35:36 +0000 (23:35 +0700)
bindings/perl/lib/Collectd/Unixsock.pm

index ca21d40509eeb8d2ebb16902be2543dc2812fe12..37f04cfe8c8f40148dce2606684a32c053b37eb5 100644 (file)
@@ -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> ()