pass fractional seconds upwards as floats

[collectd.git] / bindings / perl / lib / Collectd / Unixsock.pm

diff --git a/bindings/perl/lib/Collectd/Unixsock.pm b/bindings/perl/lib/Collectd/Unixsock.pm
index ca21d40..96287eb 100644 (file)
--- 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;
@@ -404,13 +404,13 @@ sub listval_filter
                my ($time, $ident) = split / /, $msg, 2;
 
                $ident = _parse_identifier ($ident);
-               $ident->{time} = int $time;
+               $ident->{time} = 0+$time;
 
                push (@ret, $ident);
-       } # for (i = 0 .. $status)
+       } # for (i = 0 .. $nresults)
 
        return @ret;
-} # listval
+} # listval_filter
 
 =item I<$res> = I<$self>-E<gt>B<listval> ()
 
@@ -446,10 +446,10 @@ sub listval
                my ($time, $ident) = split / /, $msg, 2;
 
                $ident = _parse_identifier ($ident);
-               $ident->{time} = int $time;
+               $ident->{time} = 0+$time;
 
                push (@ret, $ident);
-       } # for (i = 0 .. $status)
+       } # for (i = 0 .. $nresults)
 
        return @ret;
 } # listval