projects
/
dweather.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix main graph history slurping
[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 strict;
use vars qw(%dbglevel $fp);
+use 5.01001;
use SMGLog ();
use Carp qw(cluck);
use SMGLog ();
use Carp qw(cluck);
+use Time::HiRes qw(gettimeofday);
%dbglevel = ();
$fp = undef;
%dbglevel = ();
$fp = undef;
@@
-55,8
+57,8
@@
dbginit();
sub dbg
{
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;
for (@_) {
my $r = $_;
chomp $r;