Send wind even if it hasn't changed

[dweather.git] / Debug.pm

diff --git a/Debug.pm b/Debug.pm
index 5bf2b5c735f2c2708c5e3334c5c2f2cfa790582d..995e7fe65e493573a6b936f4849470e6c741d70c 100644 (file)
--- a/Debug.pm
+++ b/Debug.pm
@@ -18,9 +18,11 @@ $VERSION = 1.23;
 
 use strict;
 use vars qw(%dbglevel $fp);
+use 5.01001;
 
 use SMGLog ();
 use Carp qw(cluck);
+use Time::HiRes qw(gettimeofday);
 
 %dbglevel = ();
 $fp = undef;
@@ -55,8 +57,8 @@ dbginit();
 
 sub dbg
 {
-       my $t = time; 
-       my $ts = sprintf("%02d:%02d:%02d", (gmtime($t))[2,1,0]);
+       my ($t,$ut) = gettimeofday; 
+       my $ts = sprintf "%02d:%02d:%02d:%03d", (gmtime($t))[2,1,0], $ut/1000;
        for (@_) {
                my $r = $_;
                chomp $r;