Time::HiRes for time()

lib/Resmon/Status.pm

@@ -10,6 +10,7 @@ use Socket;
 use Fcntl qw/:flock/;
 use Data::Dumper;
 use File::Basename;
+use Time::HiRes;
 
 my $KEEPALIVE_TIMEOUT = 5;
 my $REQUEST_TIMEOUT = 60;
@@ -369,7 +370,7 @@ sub service {
         if($1 eq "System::Time" && $2 eq "now") {
             my $info = {
               metric => {
-                now =>  [ time(), 'L' ],
+                now =>  [ Time::HiRes::time(), 'F' ]
               }
             };
             my $response = plain_info($1,$2,$info);
@@ -389,7 +390,7 @@ sub service {
         if($1 eq "System::Time" && $2 eq "now") {
             my $info = {
               metric => {
-	        now => [ time(), 'L'],
+                now =>  [ Time::HiRes::time(), 'F' ]
               }
             };
             my $response = qq^<?xml version="1.0" encoding="UTF-8"?>\n^;