X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=Debug.pm;h=995e7fe65e493573a6b936f4849470e6c741d70c;hb=9b87b2428a5050fb2fd2803d0d568ca916365738;hp=5bf2b5c735f2c2708c5e3334c5c2f2cfa790582d;hpb=9a9679bb16f6676d568db58d46ac0bbe85da2a4c;p=dweather.git

diff --git a/Debug.pm b/Debug.pm
index 5bf2b5c..995e7fe 100644
--- 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;